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1. INTRODUCTION 

The standard CP/M system assumes operation on an Intel MDS--800 
microcomputer development system, but is designed so that the user can 
alter a specific set of subroutines which define the hardware 
operating environment. In this way, the user can produce a diskette 
which operates with any IBM-3741 format compatible drive controller 
and other peripheral devices. 

Altnough standard CP/M 2.0 is configured for single density floppy 
disks, field-alteration features allow adaptation to a wide variety of 
disk subsystems from single drive minidisks through high-capacity 
"hard disk" systems. In order to simplify the following adaptation 
process, we assume that CP/iVl 2.0 will first be configured for single 
density floppy disks where minimal editing and debugging tools are 
available. If an earlier version of CP/M is available, the 
customizing process is eased considerably. In this latter case, you 
may wisn to briefly review the system generation process, and skip to 
later sections which discuss system alteration for non-standard disk 
systems. 

In order to achieve device independence, CP/M is separated into 
tnree distinct modules: 

BIOS - oasic I/O system which is environtnent dependent 
BOOS - basic disk operating system v/hich is not dependent 

upon the hardware configuration 
CCP - the console command processor which uses the BDOS 

Of these modules, only the BIOS is dependent upon the particular 
hardware. That is, the user can "patch" the distribution version of 
CP/M to provide a new BIOS which provides a customized interface 
between the remaining CP/M modules and the user's own hardware system. 
The purpose of this document is to provide a step-by-step procedure 
for patching your new BIOS into CP/M. 

If CP/M is being tailored to your computer system for the first 
time, the new BIOS requires some relatively simple software 
development and testing. The standard BIOS is listed in Appendix B, 
and can be used as a model for the customized package. A skeletal 
version of the BIOS is given in Appendix C which can serve as the 
basis for a modified BIOS. In addition to the BIOS, the user must 
write a simple memory loader, called GETSYS , which brings the 
operating system into memory. In order to paten the new BIOS into 
CP/M, the user must write the reverse of GETSYS, called PUTSYS, which 
places an altered version of CP/M back onto the diskette. PUTSYS can 
be derived from GETSYS by changing the disk read commands into disk 
write commands. Sample skeletal GETSYS and PUTSYS programs are 
described in Section 3, and listed in Appendix D. In order to make 
the CP/M system work automatically, the user must also supply a cold 
start loader, similar to the one provided with CP/M (listed in 
Appendices A and B) . A skeletal form of a cold start loader is given 
in Appendix E which can serve as a model for your loader. 
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2. FIRST LEVEL SYSTEM REGENERATION 

The procedure to follow to paten the CP/M system is given below in 
several steps. Address references in each step are shown with a 
following "H" which denotes the hexadecimal radix, and are given for a 
20K CP/M system. For larger CP/M systems, add a "bias" to each 
address which is shown with a "+b" following it, where b is equal to 
the memory size - 20K. Values for b in various standard memory sizes 
are 



24K, 


b = 


24K - 


20K 


= 


4K 


= 


1000H 


32K' 


b = 


3 2K - 


20K 


= 


12K 


= 


3000H 


40K 


: b = 


40K - 


20K 


= 


20K 


= 


5000H 


4 8K 


: b = 


48K - 


20K 


= 


28K 


= 


7000H 


5 6K 


: b = 


56K - 


20K 


= 


3 6K 


= 


9000H 


62K 


: b = 


62K - 


20K 


= 


42K 


= 


A800H 


6 4K 


: b = 


64K - 


20K 


= 


44K 


= 


B000H 



Note: The standard distribution version of CP/M is set for 
operation within a 20K memory system. Therefore, you must first bring 
up the 20K CP/M system, and then configure it for your actual memory 
size (see Second Level System Generation). 

(1) Review Section 4 and write a GETSYS program which reads the 
first two tracks of a diskette into memory. The data from the diskette 
must begin at location 3380H. Code GETSYS so that it starts at 
location 100ri (oase of the TPA) , as shown in the first part of 
Appendix d. 

(2) Test tne GETSYS program by reading a blank diskette into 
memory, and check to see that the data has been read properly, and 
that the diskette has not been altered in any way by the GETSYS 
program. 

(3) Run the GETSYS program using an initialized CP/M diskette to 
see if GETSYS loads CP/M starting at 3380H (the operating system 
actually starts 128 bytes later at 3400H) . 

(4) Review Section 4 and write the PUTSYS program which writes 
memory starting at 3380H back onto the first two tracks of the 
diskette. The PUTSYS program should be located at 200H, as shown in 
the second part of Appendix D. 

(5) Test the PUTSYS program using a blank uninitialized diskette 
by writing a portion of memory to the first two tracks; clear memory 
and read it back using GETSYS. Test PUTSYS completely, since this 
program will be used to alter CP/M on disk. 

(6) Study Sections 5, 6, and 7, along with the distribution 
version of the BIOS given in Appendix B, and write a simple version 
which performs a similar function for the customized environment. Use 
the program given in Appendix C as a model. Call this new BIOS by the 
name CBIOS (customized BIOS) . Implement only the primitive disk 
operations on a single drive, and simple console input/output 
functions in this phase. 
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(7) Test CBIOS completely to ensure that it properly performs 
console character I/O and disk reads and writes. Be especially 
careful to ensure that no disk write operations occur accidently 
during read operations, and check that the proper track and sectors 
are addressed on all reads and writes. Failure to make these checks 
may cause destruction of the initialized CP/i^ system after it is 
patched. 

(3) Referring to Figure 1 in Section 5, note that the BIOS is 
placed between locations 4A00H and 4FFFH. Read the CP/M system using 
GETSYS and replace the BIOS segment by the new CBIOS developed in step 
(6) and tested in step (7). This replacement is done in the memory of 
the machine, and will be placed on the diskette in the next step. 

(9) Use PUTSYS to place the patched memory image of CP/M onto the 
first two tracks of a blank diskette for testing. 

(10) Use GETSYS to bring the copied memory image from the test 
diskette back into memory at 3380H, and check to ensure that it has 
loaded back properly (clear memory, if possible, before the load). 
Upon successful load, brancn to the cold start code at location 4A00H. 
The cold start routine will initialize page zero, then jump to the CCP 
at location 3400H which will call the BDOS, which will call the CBIOS. 
The CBIOS will be asked by the CCP to read sixteen sectors on track 2, 
and if successful, CP/M will type "A>", the system prompt. 

When you make it this far, you are almost on the air. If you have 
trouble, use whatever debug facilities you have available to trace and 
breakpoint your CBIOS. 

(11) Upon completion of step (10) , CP/M has prompted the console 
for a command input. Test the disk write operation by typing 

SAVE 1 X.COM 
(recall that all commands must be followed by a carriage return). 
CP/M should respond with another prompt (after several disk accesses) : 

A> 
If it does not, debug your disk write functions and retry. 

(12) Then test the directory command by typing 
DIR 

CP/M should respond with 
A: X COM 

(13) Test the erase command by typing 
ERA X.COM 
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CP/M should respond vvith the A prompt. vJhen you make it this far„ you 
should have an operational system which will only require a bootstrap 
loader to /uTTction completely . 

(14) Write a bootstrap loader which is similar to GETSYS, and 
place it on track 0, sector 1 using PUTSYS (again using the test 
diskette, not the distribution diske^tte) . See Sections 5 and 8 for 
more information on the bootstrap op^ation. 

(15) Retest the new test dis-kette with the bootstrap loader 
installed by executing steps (11) , (12) , and (13) . Upon completion of 
these tests, type a control-C (control and C keys simultaneously) . The 
system should then execute a "warm start" which reboots the system, 
and types the A prompt. 

(16) At this point, you probably have a good version of your 
customized CP/M system on your test diskette. Use GETSYS to load CP/M 
from your test diskette. Remove the test diskette, place the 
distribution diskette (or a legal copy) into the drive, and use PUTSYS 
to replace the distribution version by your customized version. Do 
not make this replacement if you are unsure of your patch since this 
step destroys the system which was sent to you from Digital Research. 

(17) Load your modified CP/M system and test it by typing 

DIR 

CP/il should respond with a list of files which are provided on the 
initialized diskette. One such file should be the memory image for 
the debugger, called DDT.COM. 

L^OTE: from now on, it is important that you always reboot the CP/M 
system (ctl-C is sufficient) when the diskette is removed and replaced 
by anotner diskette, unless the new diskette is to be read only. 

(18) Load and test the debugger by typing 

DDT 

(see the document "CP/M Dynamic Debugging Tool (DDT)" for operating 
procedures. You should take the time to become familiar with DDT, it 
will be your best friend in later steps. 

(19) Before making further CBIOS modifications, practice using 
the editor (see the ED user's guide), and assembler (see the ASM 
user's guide). Then recede and test the GETSYS, PUTSYS, and CBIOS 
programs using ED, ASM, and DDT. Code and test a COPY program which 
does a sector-to-sector copy from one diskette to another to obtain 
oack-up copies of the original diskette (NOTE: read your CP/M 
Licensing Agreement; it specifies your legal responsibilities when 
copying the CP/M system) . Place the copyright notice 

Copyright (c) , 1979 
Digital Research 
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on each copy which is made with y^^^ COPY program. 

(20) Modify your CBIOS to include the extra functions for 
punches, readers, signon messages, and so-forth, and add the 
facilities for a additional disk drives, if desired. You can make 
these changes with the GETSYS and PUTSYS programs which you have 
developed, or you can refer to the following section, which outlines 
CP/M facilities which will aid you in the regeneration process. 

You now have a good copy of the customized CP/M system. Note that 
although the CBIOS portion of CP/M which you have developed belongs to 
you, the modified version of CP/M which you have created can be copied 
for your use only (again, read your Licensing Agreement) , and cannot 
be legally copied for anyone else's use. 

It should be noted that your system remains file-compatible with all 
other CP/M systems, (assuming media compatiblity , of course) which 
allows transfer of non-proprietary software between users of CP/M. 
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3. SECOND LEVEL SYSTEM GENERATION 

Now that yo'J have the CP/M system running, you will want to 
configure CP/M for your memory size. In general, you will first get a 
memory image of CP/M with the "MOVCPM" program (system relocator) and 
place this memory image into a named disk file. The disk file can then 
be loaded, examined, patched, and replaced using the debugger, and 
system generation program. For further details on the operation of 
these programs, see the "Guide to CP/M Features and Facilities" 
manual, 

Your C3I0S and BOOT can be modified using ED, and assembled using 
ASM, producing files called CBIOS.HEX and BOOT. HEX, which contain the 
machine code for CBIOS and BOOT in Intel hex format. 

To get the memory image of CP/M into the TPA configured for the 
desired memory size, give the command: 

MOVCPM XX * 

where "xx" is the memory size in decimal K bytes (e.g. , 32 for 32K) . 
The response will oe: 

CONSTRUCTING xxK CP/M VERS 2.0 
READY FOR "SYSGEN" OR 
"SAVE 3 4 CPMxx.COM" 

At this Doint, an image of a CP/M in the TPA configured for the 
requested memory size. The memory image is at location 090ii:)H through 
227FH. (i.e.. The BOOT is at 0900H, the CCP is at 980H, the BOGS 
starts at 1180H, and the BIOS is at 1F80H.) Note that the memory 
image has the standard MDS--800 BIOS and BOOT on it. It is now 
necessary to save the memory image in a file so that you can patch 
your CBIOS and CBOOT into it: 

SAVE 3 4 CPMxx.COM 

The memory image created by the "MOVCPM"* program is offset by a 
negative bias so that it loads into the free area of the TPA, and thus 
does not interfere with the operation of CP/M in higher memory. This 
memory image can be subsequently loaded under DDT and examined or 
changed in preparation for a new generation of the system. DDT is 
loaded with the memory image by typing: 

DDT CPMxx.COM Load DDT, then read the CP 

image 

DDT should respond with 

NEXT PC 

2300 0100 

- (The DDT prompt) 

You can then use the display and disassembly commands to examine 
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portions of the memory image between 900H and 227FH. Note, however, 
that to find any particular address within the memory image, you must 
^PPly the negative bias to the CP/iVI address to find the actual 
address. Track 00, sector 01 is loaded to location 900H (you should 
find the cold start loader at 900H to 97FH) , track 00, sector 02 is 
loaded into 980H (this is the base of the CCP) , and so-forth through 
the entire CP/M system load. In a 20K system, for example, the CCP 
resides at the CP/M address 3400H, but is placed into memory at 980H 
by the SYSGEN program. Thus, the negative bias, denoted by n, 
satisfies 

3400H + n = 980H, or n = 980H - 3400H 

Assuming two's complement arithmetic, n = D580H, which can be checked 
by 

3400H + D580H = 10980H = 0980H (ignoring high-order 

overflow) . 

Note that for larger systems, n satisfies 

(3400H+b) + n = 980H, or 
n = 980H - (3400H + b) , or 
n = D580H - b. 

The value of n for common CP/M systems is given below 

memory size bias b negative offset n 

20K 0000H D580H - 0000H = D580H 

24K 1000H D580H - 1000H = C580H 

32K 3000H D580H - 3000H = A580H 

40K 5000H D580H - 5000H = 8580H 

48K 7000H D580H - 7000H = 6580H 

56K 9000H D580H - 9000H = 4580H 

62K A800H D580H - A800H = 2D80H 

64K B000H D580H - B000H = 2580H 

Assume, for example, that you want to locate the address x within the 
memory image loaded under DDT in a 20K system. First type 

Hx,n Hexadecimal sum and difference 

and DDT will respond with the value of x+n (sum) and x-n (difference) . 
The first number printed by DDT will be the actual memory address in 
the image where the data or code will be found. The input 

H3400,D580 

for example, will produce 980H as the sum, which is where the CCP is 
located in the memory image under DDT. 

Use the L command to disassemble portions the BIOS located at 
(4A00H+b)-n which, when you use the H command, produces an actual 
address of 1F80H. The disassembly command would thus be 
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L1F80 

It is now necessary to oatch in your CBOOT and CBIOS routines. The 
BOOT resides at location 0900H in the memory image. If the actual 
load address is "n", then to calculate the bias (m) use the command: 

H900,n Subtract load address from 

target address. 

The second number typed in response to the command is the desired bias 
(m) . For example, if your BOOT executes at 0080H, tne command: 

H900,80 

will reply 

0980 0880 Sum and difference in hex. 

Therefore, the bias "m" would be 0880H. To read-in the BOOT, give the 
command: 

IC300T.HEX Input file CBOOT. HEX 

Then: 

Rm Read CBOOT with a bias of 

m (=900H-n) 

You may now examine your CBOOT with: 

L900 

We are now ready to replace the CBIOS. Examine the area at 1F80H 
where the original version of the CBIOS resides. Then type 

ICBIOS.HEX Ready the "hex" file for loading 

assume that your CBIOS is being integrated into a 20K CP/M system, and 
thus is origined at location 4A00H. In order to properly locate the 
CBIOS in the memory image under DDT, we must apply the negative bias n 
for a 20K system when loading the hex file. This is accomplished by 
typing 

RD580 Read the file with bias D580H 

Upon completion of the read, re-examine the area where the CBIOS has 
been loaded (use an "Ij1F80" command) , to ensure that is was loaded 
properly. When you are satisfied that the change has been made, 
return from DDT using a control-C or "G0" command. 

Now use SYSGEN to replace the patched memory image back onto a 
diskette (use a test diskette until you are sure of your patch) , as 
shown in the following interaction 
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SYSGEN Start the SYSGEN program 

SYSGEtJ VERSIO^I 2.0 Sign-on message from S!«:3GEN 

SOURCE DRIVE NAME (OR RETURN TO SKIP) 

Respond with a carriage return 
to skip the CP/M read operation 
since the system is already in 
memory. 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Respond with "B" to write the 
new system to the diskette in 
drive B, 

DESTINATION ON B, THEN TYPE RETURN 

Place a scratch diskette in 
drive B, then type return. 

FUNCTION COMPLETE 

DESTINATION DRIVE NAME (OR RETURN TO REBOOT) 

Place the scratch diskette in your drive A, and then perform a 
colds tart to bring up the new GP/M system you have configured. 

Test the new CP/M system, and place the Digital Research copyright 
notice on the diskette, as specified in your Licensing Agreement: 

Copyright (c) , 1979 
Digital Research 



4. SAMPLE GETSYS AND PUTSY3 PROGRAMS 

The following program provides a framework for the GETSYS and 
PUTSYS programs referenced in Section 2. The READSEC and WRITESEC 
subroutines must be inserted by the user to read and write the 
specific sectors. 

GETSYS PROGRAM - READ TRACKS AND 1 TO MEMORY AT 3380H 

USE 
(SCRATCH REGISTER) 
TRACK COUNT (0, 1) 

SECTOR COUNT (1,2, ,26) 

(SCRATCH REGISTER PAIR) 

LOAD ADDRESS 

SET TO STACK ADDRESS 

;SET STACK POINTER TO SCRATCH AREA 

;SET BASE LOAD ADDRESS 

; START WITH TRACK 

JREAD NEXT TRACK (INITIALLY 0) 

;READ STARTING WITH SECTOR 1 

;READ NEXT SECTOR 

; USER-SUPPLIED SUBROUTINE 

;MOVE LOAD ADDRESS TO NEXT 1/2 PAGE 

;HL = HL + 128 

; SECTOR = SECTOR + 1 

; CHECK FOR END OF TRACK 

; CARRY GENERATED IF SECTOR < 27 

ARRIVE HERE AT END OF TRACK, MOVE TO NEXT TRACK 
INR B 

MOV A,B ;TEST FOR LAST TRACK 

CPI 2 
JC RDTRK ; CARRY GENERATED IF TRACK < 2 

ARRIVE HERE AT END OF LOAD, HALT FOR NOW 
HLT 

USER-SUPPLIED SUBROUTINE TO READ THE DISK 
READSEC: 

ENTER WITH TRACK NUMBER IN REGISTER B, 
SECTOR NUMBER IN REGISTER C, AND 
ADDRESS TO FILL IN HL 



GE 


TSY3 P] 


ROGRAM - 


; REGISTER 






A 






B 






C 






DE 






HL 






SP 




START: 


LXI 


SP,3380H 




LXI 


H, 3380H 




MVI 


B, 


RDTRK: 








MVI 


c,i 


RDSEC: 








CALL 


READSEC 




LXI 


D,128 




DAD 


D 




INR 


C 




MOV 


A,C 




CPI 


27 




JC 


RDSEC 



PUSH 
PUSH 



;SAVE B AND C REGISTERS 
;SAVE HL REGISTERS 



perform disk read at this point, branch to 
label START if an error occurs 



POP 


H 


POP 


B 


RET 





; RECOVER HL 

; RECOVER B AND C REGISTERS 

;BACK TO MAIN PROGRAM 

END START 
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Note that this program is assembled and listed in Appendix C for 
reference purposes, with an assumed origin of 100H. The hexadecimal 
operation codes which are listed on the left may be useful if the 
program has to be entered through y^^^ machine's front panel switches. 

The PUTSYS program can be constructed from GETS!£S by changing only 
a few operations in the GETS^S program given above, as shown in 
Appendix D. The register pair HL become the dump address (next 
address to write) , and operations upon these registers do not change 
within the program. The READSEC subroutine is replaced by a WRITESEC 
subroutine which performs the opposite function: data from address HL 
is written to the track given by register B and sector given oy 
register C. It is often useful to combine GETSYS and PUTSYS into a 
single program during the test and development phase, as shown in the 
Appendix. 
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5. DISKETTE ORGANIZATION 

The sector allocation for the standard distribution version of 
CP/M is given here for reference purposes. The first sector (see 
table on the following page) contains an optional software boot 
section. Disk controllers are often set up to bring track 0, sector 1 
into memory at a specific location (often location 0000H) . The 
program in this sector, called BOOT, has the responsibility of 
bringing the remaining sectors into memory starting at location 
3400H+b. If your controller does not have a built-in sector load, you 
can ignore the program in track 0, sector 1, and begin the load from 
track sector 2 to location 3400H+b. 

As an example, the Intel MDS-800 hardware cold start loader brings 
track 0, sector 1 into absolute address 3000H. Upon loading this 
sector, control transfers to location 3000H, where the bootstrap 
operation commences by loading the remainder of tracks 0, and all of 
track 1 into memory, starting at 3400H+b. The user should note that 
this bootstrap loader is of little use in a non-MDS environment, 
although it is useful to examine it since some of the boot actions 
will have to be duplicated in your cold start loader. 
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Track # 


Sector# 


Page 


# Memory Address 


CP/M 


Module name 


00 


01 




(boot address) 


Cold 


Start Loader 


00 

•i 


02 
03 


00 
II 


3400H+b 
3480H+b 




CCP 
ll 


■ i 


04 


01 


3500H+b 




It- 


ll 


05 


II 


3580H+D 




II 


•• 


06 


02 


3600H+b 




II 


II 


07 


•• 


3680H+b 




" 


•■ 


08 


03 


3700H+D 




•1 


" 


09 


" 


3780H+b 




ll 


" 


10 


04 


3800H+b 




•1 


II 


11 


It 


3880H+b 




II 


•1 


12 


05 


3900H+b 




■1 


•' 


13 


" 


3980H+b 




It 


II 


14 


06 


3A00H+b 




•1 


'• 


15 


II 


3A80H+b 




II 


" 


16 


07 


3B00H+b 




" 


00 


17 


II 


3B80H+b 




CCP 


00 


18 


08 


3C00H+b 




BDOS 


" 


19 


■I 


3C80H+b 




II 


" 


20 


09 


3D00H+b 




•' 


II 


21 


II 


3D80H+b 




" 


•' 


22 


10 


3E00H+b 




" 


" 


23 


ti 


3E80H+b 




" 


•• 


24 


11 


3F00H+b 




It 


II 


25 


II 


3F80H+b 




II 


II 


26 


12 


4000H+b 




ti 


01 


01 


ll 


4080H+b 




" 


■" 


02 


13 


4100H+b 




" 


.1 


03 


II 


4180H+b 




It 


■1 


04 
05 


14 


4200H+b 
4280H+b 




It 
It 


" 


06 


15 


4300H+b 




" 


•' 


07 


11 


4380H+b 




It 


■" 


08 


16 


4400H+b 




It 


•■ 


09 


•1 


4480H+b 




" 


It 


10 


17 


4500H+b 




It 


■• 


11 


ll 


4580H+b 




It 


ll 


12 


18 


4600H+b 




It 


■ 1 


13 


•I 


4680H+b 




ti 


ll 


14 


19 


4700H+b 




<• 


■» 


15 


• i 


4780H+b 




It 


" 


16 


20 


4800H+b 




It 


" 


17 


•1 


4880H+b 




It 


" 


18 


21 


4900H+b 




It 


01 


19 


II 


4980H+b 




BDOS 


01 


20 


22 


4A00H+b 




BIOS 


ll 


21 


li 


4A80H+b 




II 


N 


23 


23 


4B00H+b 




It 


ll 


24 


It 


4B80H+b 




It 


II 


25 


24 


4C00H+b 




It 


01 


26 


If 


4C80H+b 




BIOS 


02-76 


01-26 






(directory and data) 


(All Information Con 


tained 


Herein is Proprieta 


ry to Digital Researc 



6. THE BIOS ENTR!^ POINTS 



The entry points into the BIOS from the cold start loader and BDOS 
are detailed below. Entry to the BIOS is through a "jump vector" 
located at 4A00H+b, as shown below (see Appendices B and C, as well). 
The jump vector is a sequence of 17 jump instructions which send 
program control to the individual BIOS subroutines. The BIOS 
subroutines may be empty for certain functions (i.e., they may contain 
a single RET operation) during regeneration of CP/iVI, but the entries 
must be present in the jump vector. 



The jump vector at 4A00H+b takes the form shown below, 
individual jump addresses are given to the left: 



where the 



4A00H+b 


J MP 


BOOT 


4A0 3H+D 


J MP 


v^BOOT 


4A0 6fl+b 


J MP 


CONST 


4A09H+b 


J MP 


CONIN 


4A0CH+b 


J MP 


CONOUT 


4A0FH+b 


J MP 


LIST 


4Al2H+b 


JMP 


PUNCH 


4Al5H+b 


J MP 


READER 


4Al8a+b 


JMP 


HOME 


4AlBa+b 


JMP 


SELDSK 


4AlEfl+D 


JMP 


SETTRK 


4A21H+D 


JMP 


SETS EC 


4A2 4H+b 


JMP 


SETDMA ; 


4A2 7H+b 


JMP 


READ 


4A2AH+b 


JMP 


WRITE ; 


4A2DH+b 


JMP 


LISTST 


4A30H+b 


JMP 


SECTRAN 



ARRIVE HERE FROM COLD START LOAD 

ARRIVE HERE FOR WARM START 

CHECK FOR CONSOLE CHAR READY 

READ CONSOLE CHARACTER IN 

WRITE CONSOLE CHARACTER OUT 

WRITE LISTING CHARACTER OUT 

WRITE CHARACTER TO PUNCH DEVICE 

READ READER DEVICE 

MOVE TO TRACK 00 ON SELECTED DISK 

SELECT DISK DRIVE 

SET TRACK NUMBER 

SET SECTOR NUMBER 

SET DMA ADDRESS 

READ SELECTED SECTOR 

WRITE SELECTED SECTOR 

RETURN LIST STATUS 

SECTOR TRANSLATE SUBROUTINE 



Each jump address corresponds to a particular subroutine which 
performs tne specific function, as outlined below. There are three 
major divisions in the jump table: the system (re) initialization 
which results from calls on BOOT and WBOOT, simple character I/O 
performed by calls on CONST, CONIN, CONOUT, LIST, PUNCH, READER, and 
LISTST, and diskette I/O performed by calls on HOME, SELDSK, SETTRK, 
SETSEC, SETDMA, READ, WRITE, and SECTRAN. 




ASCI 

An 

control-z (lAH) . Peripheral devices are seen by CP/M as "logical 

devices, and are assigned to physical devices within the BIOS. 

In order to operate, the BDOS needs only the CONST, CONIN, and 
CONOUT subroutines (LIST, PUNCH, and READER may be used by PIP, but 
not the BDOS). Further, the LISTST entry is used currently only by 
DESPOOL, and thus, the initial version of CBIOS may have empty 
subroutines for the remaining ASCII devices. 
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The characteristics of each device are 



CONSOLE 



LIST 



PUNCH 



READER 



The principal interactive console which communicates 
with the operator, accessed through CONST, CONIN, and 
CONOUT. Typically, the CONSOLE is a device such as a 
CRT or Teletype. 

The principal listing device, if it exists on your 
system, which is usually a hard-copy device, such as a 
printer or Teletype. 

The principal tape punching device, if it exists, which 
is normally a high-speed paper tape punch or Teletype. 



The principal tape reading device, 
optical reader or Teletype, 



such as a simple 



Note that a single periohera 
the LIST, PUNCH, and READER dev 
no peripheral device is assigned 
READER device, the CBIOS created 
an appropriate error message 
not "hang" if the device is acce 
other user program. Alternat 
routines can just simply return, 
can return with a lAH (ctl-Z) i 
immediate end-of-file. 



1 can be as 

ice simultane 

as the LIST, 

by the user 

so that the s 

ssed by PIP 

ely, the PUNC 

and the READ 

n reg A to 



signed as 

ously. If 

PUNCH, or 

may give 

ystem does 

or some 

H and LIST 

ER routine 

indicate 



For added f 
implement the 
reassignment of 
lOBYTE functio 
physical devices 
processing (see 
the lOBYTE funct 
as follows: 
location 0003H) 
defines the logi 
in effect at 
performed by spl 
fields of two 
PUNCH, and LIST 



lexibility, the user can optionally 

"lOBYTE" function which allows 

physical and logical devices. The 

n creates a mapping of logical to 

which can be altered during CP/M 

the STAT command) . The definition of 

ion corresponds to the Intel standard 

a single location in memory (currently 

is maintained, called lOBYTE, which 

cal to physical device mapping which is 

a particular time. The mapping is 

itting the lOBYTE into four distinct 

bits each, called the CONSOLE, READER, 

fields, as shown below: 



most significant 
lOBYTE AT 0003H I LIST I PUNCH 



least significant 
READER I CONSOLE I 



bits 6,7 bits 4,5 bits 2,3 bits 0,1 

The value in each field can be in the range 0-3, 
defining the assigned source or destination of each 
logical device. The values which can be assigned to 
each field are given below 
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CONSOLE field (bits 0,1) 

- console is assigned to the console printer device (TTY:) 

1 - console is assigned to the CRT device (CRT:) 

2 - batch mode: use the READER as the CONSOLE input, 

and the LIST device as the CONSOLE output (BAT:) 

3 - user defined console device (UGl : ) 

READER field (bits 2,3) 

- READER is the Teletype device (TTY: ) 

1 - READER is the high-speed reader device (RDR:) 

2 - user defined reader # 1 (URl:) 

3 - user defined reader # 2 (UR2:) 

PUNCH field (bits 4,5) 

- PUNCH is the Teletype device (TTY:) 

1 - PUNCH is the high speed punch device (PUN:) 

2 - user defined punch # 1 (UPl: ) 

3 - user defined punch #2 (UP2:) 

LIST field (bits 6,7) 

- LIST is the Teletype device (TTY:) 

1 - LIST is the CRT device (CRT:) 

2 - LIST is the line printer device (LPT:) 

3 - user defined list device (ULl:) 

Note again that the implementation of the lOBYTE is 
optional, and affects only the organization of your 
CBIOS. No CP/M systems use the lOBYTE (although they 
tolerate the existence of the lOBYTE at location 
0003H) , except for PIP which allows access to the 
physical devices, and STAT which allows 
logical-physical assignments to be made and/or 
displayed (for more information, see the "CP/M Features 
and Facilities Guide"). In any case, the lOBYTE 
implementation should be omitted until your basic CBIOS 
is fully implemented and tested; then add the lOBYTE to 
increase your facilities. 

Disk I/O is always performed through a sequence of 
calls on the various disk access subroutines which set 
up the disk number to access, the track and sector on a 
particular disk, and the direct memory access (DMA) 
address involved in the I/O operation. After all these 
parameters have been set up, a call is made to the READ 
or WRITE function to perform the actual I/O operation. 
Note that there is often a single call to SELDSK to 
select a clisk drive, followed by a number of read or 
write operations to the selected disk before selecting 
another drive for subsequent operations. Similarly, 
there may be a single call to set the DMA address, 
followed by several calls which read or write from the 
selected DMA address before the DMA address is changed. 
The track and sector subroutines are always called 
before the READ or WRITE operations are performed. 



(All Information Contained Herein is Proprietary to Digital Research.) 

16 



i^ote that the READ and WRITE routines should 
perform several retries (10 is standard) before 
reporting the error condition to the BDOS, If the 
error condition is returned to the BDOS, it will report 
the error to the user. The HOME subroutine may or may 
not actually perform the track 00 seek, depending upon 
your controller characteristics; the important point is 
that track 00 has been selected for the next operation, 
and is often treated in exactly the same manner as 
SETTRK with a parameter of 00. 

The exact responsibilites of each entry point 
subroutine are given below: 

BOOT The BOOT entry point gets control from the cold start 
loader and is responsible for basic system 
initialization, including sending a signon message 
(which can be omitted in the first version)!. If the 
lOBYTE function is implemented, it must be Set at this 
point. The various system parameters whicn are set by 
the WBOOT entry point must be initialized, and control 
is transferred to the CCP at 3400H+b for further 
processing. Note that reg C must be set to zero to 
select drive A, 

WBOOT The WBOOT entry point gets control when a warm start 
occurs. A warm start is performed whenever a user 
program branches to location 0000H, or when the CPU is 
reset from the front panel. The CP/M system must be 
loaded from the first two tracks of drive A up to, but 
not including, the BIOS (or CBIOS, if you have 
completed your patch). System parameters must be ini- 
tialized as shown below: 

location 0,1,2 set to JMP WBOOT for warm starts 

(0000H: JMP 4A03H+b) 

location 3 set initial value of lOBYTE, if 

implemented in your CBIOS 

location 5,6,7 set to JMP BDOS, which is the 

primary entry point to CP/M for 
transient programs. (0005H: JMP 
3C06H+b) 

(see Section 9 for complete details of page zero use) 
Upon completion of the initialization, the WBOOT 
program must branch to the CCP at 3400H+b to (re) start 
the system. Upon entry to the CCP, register C is set 
to the drive to select after system initialization. 

CONST Sample the status of the currently assigned console 
device and return 0FFH in register A if a character is 
ready to read, and 00H in register A if no console 
characters are ready. 

CONIN Read the next console character into register A, and 
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CONOUT 



LIST 



PUNCH 



READER 



HOME 



SELDSK 



set the parity oit {high order bit) to zero. If no 
console character is ready, wait until a character is 
typed before returning. 



Send the character from register 
output device. The character is 
order parity bit set to zero. You 
a time-out on a line feed or carri 
console device requires some time 
of the line (such as a TI Silent 7 
can, if you wish, filter out cont 
cause your console device to react 
control-z causes the Lear Seigler 
the screen, for examole) . 



C to the 
in ASCII, wi 
may want to 

age return, i 
interval at 

00 terminal) . 

rol character 
in a strange 
terminal to 



console 

th high 

include 

f your 

the end 

You 

s which 

way (a 

clear 



Send the character from register C to the currently 
assigned listing device. The character is in ASCII 
with zero parity. 

Send the character from register C to the currently 
assigned punch device. The character is in ASCII with 
zero parity. 

Read the next character from the currently assigned 
reader device into register A with zero parity (high 
order bit must be zero) , an end of file condition is 
reported by returning an ASCII control-z (lAH) . 

Return the disk head of the currently selected disk 
(initially disk A) to the track 00 position. If your 
controller allows access to the track flag from the 
drive, step the head until the track flag is 
detected. If your controller does not support this 
feature, you can translate the HOME call into a call 
on SETTRK with a parameter of 0. 

Select the disk drive given by register C for further 
operations, where register C contains for drive A, 1 
for drive B, and so-forth up to 15 for drive P (the 
standard CP/M distribution version supports four 
drives) . On each disk select, SELDSK must return in 
HL the base address of a 16-byte area, called the Disk 
Parameter Header, described in the Section 10. For 
standard floppy disk drives, the contents of the 
header and associated tables does not change, and thus 
the program segment included in the sample CBIOS 
performs this operation automatically. If there is an 
attempt to select a non-existent drive, SELDSK returns 
HL=0000H as an error indicator. Although SELDSK must 
return the header address on each call, it is 
advisable to postpone the actual physical disk select 
operation until an I/O function (seek, read or write) 
is actually performed, since disk selects often occur 
without utimately performing any disk I/O, and many 
controllers will unload the head of the current disk 
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SETTRK 



SETSEC 



SETDMA 



READ 



WRITE 



before selecting the new drive. This would 
excessive amount of noise and disk wear. 



cause an 



Register BC contains the track number for subsequent 
disk accesses on the currently selected drive, Ij^ou 
can choose to seek the selected track at this time, or 
delay the seek until the next read or write actually 
occurs. Register BC can take on values in the range 
0-76 corresponding to valid track numbers for standard 
floppy disk drives, and 0-65535 for non-standard disk 
subsystems. 

Register BC contains the sector number (1 through 26) 
for subsequent disk accesses on the currently selected 
drive. You can choose to send this information to the 
controller at this point, or instead delay sector 
selection until a read or write operation occurs. 



Register 3C contains the DMA (dis 
address for subsequent read or writ 
example, if B = 00H and C = 80H when 
then all subsequent read operatic 
into 80H through 0FFH, and all 
operations get their data from 80H t 
the next call to SETDMA occurs, 
address is assumed to be 80H, 
controller need not actually suppo 
access. If, for example, all da 
sent through I/O ports, the CBIOS wh 
will use the 128 byte area starti 
DMA address for the memory buffer du 
read or write operations. 



k memory access) 
e operations. For 

SETDMA is called, 
ns read their data 

subsequent write 
hrough 0FFH, until 
The initial DMA 
Note that the 
rt direct memory 
ta is received and 
ich you construct 
ng at the selected 
ring the following 



Assuming the drive has been selected, the track has 
been set, the sector has been set, and the DMA address 
has been specified, the READ subroutine attempts to 
read one sector based upon these parameters, and 
returns the following error codes in register A: 



no errors occurred 

non-recoverable error condition occurred 



Currently, CP/M responds only to a zero or non-zero 
value as the return code. That is, if the value in 
register A is then CP/M assumes that the disk 
operation completed properly. If an error occurs, 
however, the CBIOS should attempt at least 10 retries 
to see if the error is recoverable. When an error is 
reported the BDOS will print the message "BDOS ERR ON 
x: BAD SECTOR", The operator then has the option of 
typing <cr> to ignore the error, or ctl-C to abort. 

Write the data from the currently selected DMA address 
to the currently selected drive, track, and sector. 
The data should be marked as "non deleted data" to 
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maintain compatibility with other CP/M systems. The 
error codes given in the READ command are returned in 
register A, with error recovery attempts as describjed 
above. ' 

LISTST Return the ready status of the list device. Used by 
the DESPOOL program to improve console response during 
its operation. The value 00 is returned in A if the 
list device is not ready to accept a character, and 
0FFH if a character can be sent to the printer. Note 
that a 00 value always suffices, 

SECTRAN Performs sector logical to physical sector translation 
in order to improve the overall response of CP/iVl, 
Standard CP/M systems are shipped with a "skew factor" 
of 6, where six physical sectors are skipped between 
each logical read operation. This skew factor allows 
enough time between sectors for most programs to load 
their buffers without missing the next sector. In 
particular computer systems which use fast processors, 
memory, and disk subsystems, the skew factor m.ay be 
changed to improve overall response. Note, however, 
that you should maintain a single density IBM 
compatible version of CP/M for information transfer 
into and out of your computer system, using a skew 
factor of 6, In general, SECTRAN receives a logical 
sector number in BC, and a translate table address in 
DE, The sector number is used as an index into the 
translate table, with the resulting physical sector 
number in HL, For standard systems, the tables and 
indexing code is provided in the CHIOS and need not be 
changed. 
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7. A SAMPLE BIOS 

The program shown in Appendix C can serve as a basis for your 
first BIOS. The simplest functions are assumed in this BIOS, so that 
you can enter it through the front panel, if absolutely necessary. 
Note that the user must alter and insert code into the subroutines for 
CONST, CONIN, CONOUT, READ, WRITE, and WAITIO subroutines. Storage is 
reserved for user-supplied code in these regions. The scratch area 
reserved in page zero (see Section 9) for the BIOS is used in this 
program, so that it could be implemented in ROM, if desired. 

Once operational, this skeletal version can be enhanced to print 
the initial sign-on message and perform better error recovery. The 
subroutines for LIST, PUNCH, and READER can be filled-out, and the 
lOBYTE function can be implemented. 
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8. A SAMPLE COLD START LOADER 

The program shown in Appendix D can serve as a basis for your cold 
start loader. The disk read function must be supplied by the user, 
and the program must be loaded somehow starting at location 0000. 
Note that space is reserved for your patch so that the total amount of 
storage required for the cold start loader is 128 bytes. Eventually, 
you v/ill probably want to get this loader onto the first disk sector 
(track 0, sector 1), and cause your controller to load it into memory 
automatically upon system start-up. Alternatively, you may wish to 
place tne cold start loader into ROM, and place it above the CP/M 
system. In this case, it will be necessary to originate the program 
at a higher address, and key-in a jump instruction at system start-up 
whicn brancnes to the loader. Subsequent warm starts will not require 
this key-in operation, since the entry point 'WBOOT' gets control, 
thus bringing the system in from disk automatically. Note also that 
the skeletal cold start loader has minimal error recovery, which may 
oe enhanced on later versions. 
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9. RESERVED LOCATIONS IN PAGE ZERO 

Main memory page zero, between locations 00H and 0FFH, contains 
several segments of code and data which are used during CP/M 
processing. The code and data areas are given below for reference 
purposes. 

Locations Contents 

from to 

0000H - 0002H Contains a jump instruction to the warm start 

entry point at location 4A03H+b. This allows a 
simple programmed restart (JMP 0000H) or manual 
restart from the front panel. 

0003H - 0003H Contains the Intel standard lOBYTE, which is 

optionally included in the user's C3I0S, as 
described in Section 6. 

0004H - 0004H Current default drive number (0=A, . . . ,15=P) . 

0005H - 0007H Contains a jump instruction to the BDOS,and 

serves two purposes: JMP 05H provides the 
primary entry point to the BDOS, as described in 
the manual "CP/M Interface Guide," and LHLD 
0006H brings the address field of the 
instruction to the HL register pair. This value 
is the lowest address in memory used by C'9/IA 
(assuming the CCP is being overlayed) . Note 
that the DDT program will change the address 
field to reflect the reduced memory size in 
debug mode. 

0008H - 0027H (interrupt locations 1 through 5 not used) 

0030fl - 0037H (interrupt location 6, not currently used 

reserved) 

0038H - 003AH Restart 7 - Contains a jump instruction into the 

DDT or SID program when running in debug mode 
for programmed breakpoints, but is not otherwise 
used by CP/M. 

003BH - 003FH (not currently used - reserved) 

0040H - 004FH 16 byte area reserved for scratch by CHIOS, but 

is not used for any purpose in the distribution 
version of CP/M 

0050H - 005BH (not currently used - reserved) 

005CH - 007CH default file control block produced for a 

transient program by the Console Command 
Processor. 

007DH - 007FH Optional default random record position 
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0080H - 00FFH default 128 byte disk buffer (also filled with 

the command line when a transient is loaded 
under the CCP) . 



Note that this information is set-up for normal operation under 
the CP/M system, but can be overwritten by a transient program if the 
BDOS facilities are not required by the transient. 

If, for example, a particular program performs only simple I/O and 
must begin execution at location 0, it can be first loaded into the 
TPA, using normal CP/M facilities, with a small memory move program 
which gets control when loaded (the mem.ory move program must get 
control from location 0100H, which is the assumed beginning of all 
transient programs) . The move program can then proceed to move the 
entire memory image down to location 0, and pass control to the 
starting address of the memory load. Note that if the BIOS is 
overwritten, or if location (containing the warm start entry point) 
is overwritten, then the programmer must bring the CP/M system back 
into memory v/ith a cold start sequence. 
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10. DISK PARAMETER TABLES. 

Tables are included in the BIOS which describe the particular 
characteristics of the disk subsystem used with CP/M. These tables 
can be either hand-coded, as shown in the sample CBIOS in Appendix C, 
or automatically generated using the DISKDEF macro library, as shown 
in Appendix B. The purpose here is to describe the elements of these 
tables. 

In general, each disk drive has an associated (16-byte) disk 
parameter header which both contains information about the disk drive 
and provides a scratchpad area for certain BDOS operations. The 
format of the disk parameter header for each drive is shown below 

Disk Parameter Header 

I XLT I 0000 I 0000 I 0000 IDIRBUFI DPB | CSV I ALV I 

16b 16b 16b 16b 16b 16b 16b 16b 

where each element is a word (16-bit) value. The meaning of each Disk 
Parameter Header (DPH) element is 

XLT Address of the logical to physical translation vector, 
if used for this particular drive, or the value 0000H 
if no sector translation takes place (i.e, the physical 
and logical sector numbers are the same). Disk drives 
with identical sector skew factors share the same 
translate tables. 

0000 Scratchpad values for use within the BDOS (initial 
value is unimportant) . 

DIRBUF Address of a 128 byte scratchpad area for directory 
operations within BDOS. Ail DPH ' s address the same 
scratchpad area. 

DPB Address of a disk parameter block for this drive. 
Drives with identical disk characteristics address the 
same disk parameter block. 

CSV Address of a scratchpad area used for software check 
for changed disks. This address is different for each 
DPH. 

ALV Address of a scratchpad area used by the BDOS to keep 
disk storage allocation information. This address is 
different for each DPH. 

Given n disk drives, the DPH ' s are arranged in a table whose first row 
of 16 bytes corresponds to drive 0, with the last row corresponding to 
drive n-1 . The table thus appears as 
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DPBASE: 

00 IXLT 001 0000 I 0000 I 0000 IDIRBUFIDBP 00|CSV 00|ALV 00 I 

01 IXLT 011 0000 I 0000 I 0000 IDIRBUFIDBP 01|CSV 01|ALV 01| 

(and so-forth through) 
n-llXLTn-ll 0000 I 0000 I 0000 I DIRBUF I DBPn-1 I CSVn-1 I ALVn-1 I 

where the label DPBASE defines the base address of the DPH table. 

A responsibility of the SELDSK subroutine is to return the base 
address of the DPH for the selected drive. The following sequence of 
operations returns the table address, with a 0000H returned if the 
selected drive does not exist. 

NDISKS EQU 4 ;NUMBER OF DISK DRIVES 

SELDSK: 

;SELECT DISK GIVEN BY BC 
LXI H,0 00H ; ERROR CODE 
MOV A,C ; DRIVE OK? 
CPI NDISKS ;CY IF SO 
RNC ;RET IF ERROR 

;N0 ERROR, CONTINUE 



MOV 


L, 


C ; 


•LOW(DISK) 


MOV 


H, 


B ; 


•HIGH(DISK) 


DAD 


H 




• *2 


DAD 


H 




1*4 


DAD 


H 




.*8 


DAD 


H 




•*16 


LXI 


D, 


DPBASE , 


•FIRST DPH 


DAD 


D 




•DPH (DISK) 


RET 









The translation vectors (XLT 00 through XLTn~l) are located 
elsewhere in the BIOS, and simply correspond one-for-one with the 
logical sector numbers zero through the sector count-1. The Disk 
Parameter Block (DPB) for each drive is more complex. A particular 
DPB, which is addressed by one or more DPH's, takes the general form 

I SPT iBSHlBLMlEXMl DSM i DRM | AL0 I ALl I CKS I OFF I 

16b 8b 8b 8b 16b 16b 8b 8b 16b 16b 

where each is a byte or word value, as shown by the "8b" or "16b" 
indicator below the field. 

SPT is the total number of sectors per track 

BSH is the data allocation block shift factor, determined 
by the data block allocation size. 
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EXM is the extent mask, determined by the data block 
alj-ocation size and the number of disk blocks. 

DSM determines the total storage capacity of the disk drive 

DRM determines the total number of directory entries which 
can be stored on this drive AL0,AL1 determine reserved 
directory blocks. 

CKS is the size of the directory check vector 

OFF is the number of reserved tracks at the beginning of 
the (logical) disk. 

The values of BSH and BLM determine (implicitly) the data allocation 
size BLS, which is not an entry in the disk parameter block. Given 
that the designer has selected a value for BLS, the values of BSH and 
BLM are shown in the table below 



BLS 


BSH 


BLM 


1,024 


3 


7 


2,048 


4 


15 


4,096 


5 


31 


8,192 


6 


63 


16,384 


7 


127 



where all values are in decimal. The value of EXM depends upon both 
the BLS and whether the DSM value is less than 256 or greater than 
255, as shown in the following table 



BLS 


DSM 


< 


256 


DSM > 255 


1,024 









N/A 


2,048 




1 







4,096 




3 




1 


8,192 




7 




3 


16,384 




15 




7 



The value of DSM is the maximum data block number supported by 
this particular drive, measured in BLS units. The product BLS times 
(DSM+1) is the total number of bytes held by the drive and, of course, 
must be within the capacity of the physical disk, not counting the 
reserved operating system tracks. 

The DRM entry is the one less than the total number of directory 
entries, which can take on a 16-bit value. The values of AL0 and ALl , 
however, are determined by DRM. The two values AL0 and ALl can 
together be considered a string of 16-bits, as shown below. 
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I AL0 I ALl I 

I I I i I I I I I I I I I i I I I 

00 01 02 03 04 05 06 07 08 09 10 11 12 13 14 15 

where position 00 corresponds to the high order bit of the byte 
labelled AL0 , and 15 corresponds to the low order bit of the byte 
labelled ALl. Each bit position reserves a data block for number of 
directory entries, thus allowing a total of 16 data blocks to be 
assigned for directory entries (bits are assigned starting at 00 and 
filled to the right until position 15). Each directory entry occupies 
32 bytes, resulting in the following table 

BLS Directory Entries 

1,024 32 times # bits 

2,048 64 times # bits 

4,096 128 times # bits 

8,192 256 times # bits 

16,384 512 times # bits 

Thus, if DRM = 127 (128 directory entries) , and BLS = 1024, then there 
are 32 directory entries per block, requiring 4 reserved blocks. In 
this case, the 4 high order bits of AL0 are set, resulting in the 
values AL0 = 0F0H and ALl = 00H. 

The CKS value is determined as follows: if the disk drive media 
is removable, then CKS = (DRM+l)/4, where DRM is the last directory 
entry number. If the media is fixed, then set CKS = (no directory 
records are checked in this case) . 

Finally, the OFF field determines the number of tracks which are 
skipped at the beginning of the physical disk. This value is 
automatically added whenever SETTRK is called, and can be used as a 
mechanism for skipping reserved operating system tracks, or for 
partitioning a large disk into smaller segmented sections. 

To complete the discussion of the DPB, recall that several DPH's 
can address the same DPB if their drive characteristics are identical. 
Further, the DPB can be dynamically changed when a new drive is 
addressed by simply changing the pointer in the DPH since the BDOS 
copies the DPB values to a local area whenever the SELDSK function is 
invoked. 

Returning back to the DPH for a particular drive, note that the 
two address values CSV and ALV remain. Both addresses reference an 
area of uninitialized memory following the BIOS. The areas must be 
unique for each drive, and the size of each area is determined by the 
values in the DPB. 

The size of the area addressed by CSV is CKS bytes, which is 
sufficient to hold the directory check information for this particular 
drive. If CKS = (DRM+l)/4, then you must reserve (DRM+l)/4 bytes for 
directory check use. If CKS = 0, then no storage is reserved. 
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The size of the area addressed by ALV is determined by the 
maximum number of data blocks allowed for this particular disk, and is 
computed as (DSM/8)+l. 

The CBIOS shown in Appendix C demonstrates an instance of these 

tables for standard 8" single density drives. It may be useful to 

examine this program, and compare the tabular values with the 
definitions given above. 
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11. THE DISKDEF MACRO LIBRARY. 

A macro library is shown in Appendix F, called DISKDEF, which 
greatly simplifies the table construction process. You must have 
access to the MAC macro assembler, of course, to use the DISKDEF 
facility, while the macro library is included with all CP/M 2.0 
distribution disks. 

A BIOS disk definition consists of the following sequence of 
macro statements: 

MACLIB DISKDEF 

• ••••• 

DISKS n 
DISKDEF 0,... 
DISKDEF 1,... 



DISKDEF n-l 

ENDEF 

where the MACLIB statement loads the DISKDEF. LIB file (on the same 
disk as your BIOS) into MAC's internal tables. The DISKS macro call 
follows, which specifies the number of drives to be configured with 
your system, where n is an integer in the range 1 to 16. A series of 
DISKDEF macro calls then follow which define the characteristics of 
each logical disk, through n-1 (corresponding to logical drives A 
through P) . Note that the DISKS and DISKDEF macros generate the 
in-line fixed data tables described in the previous section, and thus 
must be placed in a non-executable portion of your BIOS, typically 
directly following the BIOS jump vector. 

The remaining portion of your BIOS is defined following the 
DISKDEF macros, with the ENDEF macro call immediately preceding the 
END statement. The ENDEF (End of Diskdef) macro generates the 
necessary uninitialized RAM areas which are located in memory above 
your BIOS. 

The form of the DISKDEF macro call is 

DISKDEF dn,fsc,lsc, [skf] ,bls ,dks,dir ,cks,of s, [0] 

where 

dn is the logical disk number, to n-1 

fsc is the first physical sector number (0 or 1) 

Isc is the last sector number 

skf is the optional sector skew factor 

bis is the data allocation block size 

dir is the number of directory entries 

cks is the number of "checked" directory entries 

ofs is the track offset to logical track 00 

[0] is an optional 1.4 compatibility flag 

The value "dn" is the drive number being defined with this DISKDEF 
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macro invocation. The "fsc" parameter accounts for differing sector 
numbering systems, and is usually or 1. The "Isc" is the last 
numbered sector on a track. When present, the "skf" parameter defines 
the sector skew factor which is used to create a sector translation 
table according to the skew. If the number of sectors is less than 
256, a single-byte table is created, otherwise each translation table 
element occupies two bytes. No translation table is created if the 
skf parameter is omitted (or equal to 0) . The "bis" parameter 
specifies the number of bytes allocated to each data block, and takes 
on the values 1024, 2048, 4096, 8192, or 16384. Generally, 
performance increases with larger data block sizes since there are 
fewer directory references and logically connected data records are 
physically close on the disk. Further, each directory entry addresses 
more data and the BIOS-resident ram space is reduced. The "dks" 
specifies the total disk size in "bis" units. That is, if the bis = 
2048 and dks = 1000, then the total disk capacity is 2,048,000 bytes. 
If dks is greater than 255, then the block size parameter bis must be 
greater than 1024. The value of "dir" is the total number of 
directory entries which may exceed 255, if desired. The "cks" 
parameter determines the number of directory items to check on each 
directory scan, and is used internally to detect changed disks during 
system operation, where an intervening cold or warm start has not 
occurred (when this situation is detected, CP/M automatically marks 
the disk read/only so that data is not subsequently destroyed) . As 
stated in the previous section, the value of cks = dir when the media 
is easily changed, as is the case with a floppy disk subsystem. If 
the disk is permanently mounted, then the value of cks is typically 0, 
since the probability of changing disks without a restart is quite 
low. The "ofs" value determines the number of tracks to skip when 

reserve 
-cal 

- . , . . [0] 

parameter is included when file compatibility is required with 

versions of 1.4 which have been modified for higher density disks. 

This parameter ensures that only 16K is allocated for each directory 

record, as was the case for previous versions. Normally, this 

parameter is not included. 

For convenience and economy of table space, the special form 

DISKDEF i,j 

gives disk i the same characteristics as a previously defined drive j. 
A standard four-drive single density system, which is compatible with 
version 1.4, is defined using the following macro invocations: 
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DISKS 4 

DISKDEF 0,1,26,6,1024,243,64,64,2 

DISKDEF 1,0 

DISKDEF 2,0 

DISKDEF 3,0 



• • • • 



ENDEF 



DPBASE 


EQU 


DPE0 




DW 


DPEl: 




DW 


DPE2' 




DW 


DPE3" 




DW 



with all disks having the same parameter values of 26 sectors per 
track (numbered 1 through 26) , with 6 sectors skipped between each 
access, 1024 bytes per data block, 243 data blocks for a total of 243k 
byte disk capacity, 64 checked directory entries, and two operating 
system tracks. 

The DISKS macro generates n Disk Parameter Headers (DPH's), 
starting at the DPH table address DPBASE generated by the macro. Each 
disk header block contains sixteen bytes, as described above, and 
correspond one-for-one to each of the defined drives. In the four 
drive standard system, for example, the DISKS macro generates a table 
of the form: 

$ 

XLT0,0 000H,0 00H,0 000H,DIRBUF,DPB0,CSV0,ALV0 
XLT0,0 000H,0 00H,0 000H,DIRBUF,DPB0,CSV1,ALV1 
XLT0,0 00H,0 000H,0 00H,DIRBUF,DPB0,CSV2,ALV2 
XLT0,0 000H,0 00H,0 000H,DIRBUF,DPB0,CSV3,ALV3 

where the DPH labels are included for reference purposes to show the 
beginning table addresses for each drive through 3. The values 
contained within the disk parameter header are described in detail in 
the previous section. The check and allocation vector addresses are 
generated by the ENDEF macro in the ram area following the BIOS code 
and tables. 

Note that if the "skf (skew factor) parameter is omitted (or 
equal to 0) , the translation table is omitted, and a 0000H value is 
inserted in the XLT position of the disk parameter header for the 
disk. In a subsequent call to perform the logical to physical 
translation, SECTRAN receives a translation table address of DE 
0000H, and simply returns the original logical sector from BC in the 
HL register pair. A translate table is constructed when the skf 
parameter is present, and the (non-zero) table address is placed into 
the corresponding DPH's. The table shown below, for example, is 
constructed when the standard skew factor skf = 6 is specified in the 
DISKDEF macro call: 

XLT0: DB 1,7,13,19,25,5,11,17,23,3,9,15,21 
DB 2,8,14,20,26,6,12,18,24,4,10,16,22 

Following the ENDEF macro call, a number of uninitialized data 
areas are defined. These data areas need not be a part of the BIOS 
which is loaded upon cold start, but must be available between the 
BIOS and the end of memory. The size of the uninitialized RAM area is 
determined by EQU statements generated by the ENDEF macro. For a 
standard four-drive system, the ENDEF macro might produce 
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4C72 = 

4DB0 = 
013C = 



BEG DAT EQU $ 
(data areas) 
ENDDAT EQU $ 
DATSIZ EQU $--BEGDAT 



which indicates that uninitialized RAM begins at location 4C72H, ends 
at 4DB0H-1, and occupies 013CH bytes. You must ensure that these 
addresses are free for use after the system is loaded. 

After modification, you can use the STAT program to check your 
drive characteristics, since STAT uses the disk parameter block to 
decode the drive information. The STAT command form 



STAT d:DSK: 

decodes the disk parameter block for drive d (d=A,...,P) and 
the values shown below: 



displays 



r: 128 Byte Record Capacity 

k: Kilobyte Drive Capacity 

d: 32 Byte Directory Entries 

c: Checked Directory Entries 

e: Records/ Extent 

b: Records/ Block 

s: Sectors/ Track 

t: Reserved Tracks 

Three examples of DISKDEF macro invocations are shown below with 
corresponding STAT parameter values (the last produces a full 
8-megabyte system) . 

DISKDEF 0,1,58, ,2048,256,128,128,2 
r=4096, k=512, d=128, c=128,, e=256, b=16, s=58, t=2 

DISKDEF 0,1,58, ,2048,1024,300,0,2 
r=16384, k=2048, d=300, c=0 , e=128, b=16, s=58, t=2 

DISKDEF 0,1,58, ,16384,512,128,128,2 
r=65536, k=8192, d=128, c=128, e=1024, b=128, s=58, t=2 
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12. SECTOR BLOCKING AND DEBLOCKING. 

Upon each call to the BIOS WRITE entry point, the CP/M BDOS 
includes information which allows effective sector blocking and 
deblocking where the host disk subsystem has a sector size which is a 
multiple of the basic 128-byte unit. The purpose here is to present a 
general-purpose algorithm which can be included within your BIOS which 
uses the BDOS information to perform the operations automatically. 

Upon each call to WRITE, the BDOS provides the following 
information in register C: 

= normal sector write 

1 = write to directory sector 

2 = write to the first sector 

of a new data block 

Condition occurs whenever the next write operation is into a 
previously written area, such as a random mode record update, when the 
write is to other than the first sector of an unallocated block, or 
when the write is not into the directory area. Condition 1 occurs 
when a write into the directory area is performed. Condition 2 occurs 
when the first record (only) of a newly allocated data block is 
written. In most cases, application programs read or write multiple 
128 byte sectors in sequence, and thus there is little overhead 
involved in either operation when blocking and deblocking records 
since pre-read operations can be avoided when writing records. 

Appendix G lists the blocking and deblocking algorithms in skeletal 
form (this file is included on your CP/M disk). Generally, the 
algorithms map all CP/M sector read operations onto the host disk 
through an intermediate buffer which is the size of the host disk 
sector. Throughout the program, values and variables which relate to 
the CP/M sector involved in a seek operation are prefixed by "sek," 
while those related to the host disk system are prefixed by "hst. " 
The equate statements beginning on line 29 of Appendix G define the 
mapping between CP/M and the host system, and must be changed if other 
than the sample host system is involved. 

The entry points BOOT and WBOOT must contain the initialization 
code starting on line 57, while the SELDSK entry point must be 
augmented by the code starting on line 65. Note that although the 
SELDSK entry point computes and returns the Disk Parameter Header 
address, it does not physically selected the host disk* at this point 
(it is selected later at READHST or WRITEHST) . Further, SETTRK, 
SETTRK, and SETDMA simply store the values, but do not take any other 
action at this point. SECTRAN performs a trivial trivial function of 
returning the physical sector number. 

The principal entry points are READ and WRITE, starting on lines 
110 and 125, respectively. These subroutines take the place of your 
previous READ and WRITE operations. 

The actual physical read or write takes place at either WRITEHST 
or READHST, where all values have been prepared: hstdsk is the host 
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disk number, hsttrk is the host track number, and hstsec is the host 
sector number (which may require translation to a physical sector 
number) . You must insert code at this point which performs the full 
host sector read or write into, or out of, the buffer at hstbuf of 
length hstsiz. All other mapping functions are performed by the 
algorithms. 

This particular algorithm was tested using an 80 megabyte hard 
disk unit which was originally configured for 128 byte sectors, 
producing approximately 35 megabytes of formatted storage, Vlhen 
configured for 512 byte host sectors, usable storage increased to 57 
megabytes, with a corresponding 400% improvement in overall response. 
In this situation, there is no apparent overhead involved in 
deblocking sectors, with the advantage that user programs still 
maintain the (less memory consuming) 128-byte sectors. This is 
primarily due, of course, to the information provided by the BDOS 
which eliminates the necessity for pre-read operations to take place. 
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APPENDIX A: THE MDS COLD START LOADER 



0000 
ffff 
0000 



0000 = 

0000 = 

0806 = 

1880 = 

1600 = 

1603 = 

3000 

1880 = 

0002 = 
0031 = 
0019 = 
0018 = 

f800 = 
ff0f = 

0078 = 

0079 = 
007b = 
007f = 

0078 = 

0079 = 
007a = 
00ff = 

0003 = 

0004 = 
0100 = 





MDS-b00 


cold Start 




Version 


2.0 August, 


false 


equ 





true 


equ 


not false 


testing 

• 


equ 


false 


f 


if 


testing 


bias 


equ 
endif 


03400h 




if 


not testing 


bias 


equ 
endif 


0000h 


cpmb 


equ 


bias 


bdos 


equ 


806h+bias 


bdose 


equ 


1880h+bias 


boot 


equ 


1600h+bias 


rboot 


equ 


boot+3 



1979 



bdosl 
ntrks 
bdoss 
bdos0 
bdosl 

7 

mon80 

rmon80 

base 

rtype 

rbyte 

reset 

• 

dstat 

ilow 

ihigh 

bsw 

recal 

readf 

stack 



org 

equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 

equ 
equ 
equ 
equ 
equ 
equ 
equ 



3000h 



;base of dos load 
;entry to dos for calls 
;end of dos load 
;cold start entry point 
;warm start entry point 



; loaded here by hardware 



bdose-cprab 

2 

bdosl/128 

25 

bdoss-bdos0 



tracks to read 

# sectors in bdos 

# on track 

# on track 1 



0f800h 

0ff0fh 

078h 

base+1 

base+3 

base+7 

base 

base+1 

base+2 

0ffh 

3h 

4h 

100h 



Intel monitor base 
restart location for mon80 
'base' used by controller 
result type 
result byte 
reset controller 

disk status port 

low iopb address 

high iopb address 

boot switch 

recalibrate selected drive 

disk read function 

use end of boot for stack 



3000 310001 



3003 
3005 



db79 
db7b 



3007 dbff 
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rstart: 

Ixi 
; clear 

in 

in 
; check 
coldstart: 

in 

ani 
jnz 



sp, stack; in case of call to mon80 
disk status 

rtype 

rbyte 
if boot switch is off 

bsw 

02h, ^ ;switch on? 
coldstart 
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300e 


d37f 

• 
9 


out 


3010 


• 

0602 


mvi 


3012 


214230 


Ixi 



clear the controller 

reset ;logic cleared 



b,ntrks ;number of tracks to read 
h, iopb0 



start: 



3015 7d 

3016 d379 

3018 7c 

3019 d37a 
301b db78 

m^ Slfi30 



3022 db79 
3024 e603 
3026 fe02 



read first/next track into cpmb 



wait0 



3028 d20030 



mov 

out 

mov 

out 

in 

ani 



a,l 

ilow 

a,h 

ihigh 

dstat 

4 . 
wait0 



check disk status 



m 

ani 

cpi 

if 

cnc 

endif 

if 

jnc 

endif 



rtype 

lib 

2 

testing 

rinon80 ;go to monitor if 11 or 10 

not testing 

rstart ;retry the load 



302b db7b 

302d 17 

302e dc0fff 

3031 If 

3032 e61e 



3034 C20030 



in rbyte ; i/o complete, check status 

if not ready, then go to mon80 

ral 

cc rmon80 ;not ready bit set 

rar ;restore 

ani 11110b ;overrun/addr err/seek/crc 



if 

cnz 

endif 

if 

jnz 

endif 



testing 

rmon80 ;go to monitor 

not testing 

rstart ; retry the load 



3037 110700 
303a 19 
303b 05 
303c C21530 



303f C30016 



Ixi d,iopbl ; length of iopb 

dad d ; addressing next iopb 

dcr b ; count down tracks 

jnz start 



jmp boot, print message, set-up jmps 
jmp boot 

parameter blocks 
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3042 


80 


iopb0: 


db 


80h 


3043 


04 




db 


readf 


3044 


19 




db 


bdos0 


3045 


00 




db 





3046 


02 




db 


2 


3047 


0000 




dw 


cpmb 


0007 


^ 


iopbl 

• 


equ 


$-iopb0 


3049 


80 


iopbl : 


db 


80h 


304a 


04 




db 


readf 


304b 


18 




db 


bdosl 


304c 


01 




db 


1 


304d 


01 




db 


1 


304e 


800c 




dw 


cpmb+bd 


3050 






end 





iocwr no update 

read function 

# sectors to read trk 

track 

start with sector 2, trk 

start at base of bdos 



jsectors to read on track 1 
; track 1 
; sector 1 
cpmb+bdos0*128 ;base of second rd 
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APPENDIX B: THE MDS BASIC I/O SYSTEM (BIOS) 



0014 = 



4a00 
3400 
3c06 
1600 
002c 
0002 
0004 
0080 
000a 



4a00 
4a03 
4a06 
4a09 
4a0c 



vers 



cpiDb 

bdos 

cpml 

nsects 

offset 

cdisk 

buff 

retry 



c3b34a 
c3c34a 
c3614b 
c3644b 
c36a4b 



wboote: 



mds-800 i/o drivers for cp/m 2,0 
(four drive single density version) 

version 2.0 august, 1979 



equ 



20 



;version 2.0 



copyright (c) 1979 
digital research 
box 579, pacific grove 
California, 93950 



org 
equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 

perforin 
boot 
wboot 
(boot a 
const 



conin 

conout 

list 

punch 

reader 

home 



4a00h 

3400h 

3c06h 

$-cpmb 

cpml/128 

2 

00 04h 

0080h 

10 



base of bios in 20k system 

base of cpm ccp 

base of bdos in 20k system 

length (in bytes) of cpm system 

number of sectors to load 

number of disk tracks used by cp 

address of last logged disk 

default buffer address 

max retries on disk i/o before e 



following functions 
cold start 

warm start (save i/o byte) 
nd wboot are the same for mds) 
console status 

reg-a = 00 if no character ready 
reg-a = ff if character ready 
console character in (result in reg-a) 
console character out (char in reg-c) 
list out (char in reg-c) 
punch out (char in reg-c) 
paper cape reader in (result to reg-a) 
move to track 00 



(the following calls set-up the io parameter bloc 
mds, which is used to perform subsequent reads an 
seldsk select disk given by reg-c (0,1,2...) 
settrk set track address (0,...76) for sub r/w 
setsec set sector address (1,...,26) 
setdma set subsequent dma address (initially 80h 

read/write assume previous calls to set i/o parms 
read read track/sector to preset dma address 
write write track/sector from preset dma addres 



jump vector for 
jmp boot 
jmp wboot 
jmp const 
jmp conin 
jmp conout 



indiviual routines 
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4a0f 


c36d4b 


4al2 


c3724b 


4al5 


c3754b 


4al8 


c3784b 


4alb 


c37d4b 


4ale 


c3a74b 


4a21 


c3ac4b 


4a24 


c3bb4b 


4a27 


c3cl4b 


4a2a 


c3ca4b 


4a2d 


c3704b 


4a30 


c3bl4b 



4a33+= dpbase 

4a33+824a00 dpe0 : 

4a37+000000 

4a3b+6e4c73 

4a3f+0d4dee 

4a43+824a00 dpel: 

4a47+000000 

4a4b+6e4c73 

4a4f+3c4dld 

4a53+824a00 dpe2 : 

4a57+000000 

4a5b+6e4c73 

4a5f+6b4d4c 

4a63+824a00 dpe3 : 

4a67+000000 

4a6b+6e4c73 

4a6f+9a4d7b 



4a73+= 

4a73+la00 

4a75+03 

4a76+07 

4a 7 7 +0 

4a78+f200 

4a7a+3f00 

4a7c+c0 

4a7d+00 

4a7e+1000 

4a80+0200 

4a82+= 

4a82+01 

4a83+07 

4a84+0d 

4a85+13 

4a86+19 

4a87+05 

4a88+0b 

4a89+ll 

4a8a+17 

4a8b+03 



dpb0 



xlt0 



jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jnip 
jmp 
jmp 
jmp 

maclib 

disks 

egu 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

dw 

d i s kd e f 

equ 

dw 

db 

db 

db 

dw 

dw 

db 

db 

dw 

dw 

equ 

db 

db 

db 

db 

db 

db 

db 

db 

db 

db 



list 

punch 

reader 

home 

seldsk 

settrk 

setsec 

setdma 

read 

write 

listst 

sectran 



;list status 



d i s kd e 
4 

$ 

xlt0,0 

0000h, 

d i r bu f 

CSV0 ,a 

xltl,0 

0000h, 

d i r bu f 

csvl ,a 

xlt2,0 

0000h, 

d i r bu f 

csv2,a 

xlt3,0 

0000h, 

d i r bu f 

csv3 ^a 

0.1,26 

$ 

26 

3 

7 



242 

63 

192 



16 

2 

$ 

1 

7 

13 

19 

25 

5 

11 

17 

23 

3 



f ;load the disk definition library 
;four disks 

;base of disk parameter blocks 
000h ; translate table 
0000h ;scratch area 
,dpb0 ;dir buff,parm block 
lv0 jcheck, alloc vectors 
000h ? translate table 
0000h ;scratch area 
,dpbl ;dir buff,parm block 
Ivi ;check, alloc vectors 
000h ; translate table 
0000h ;scratch area 
,dpb2 ;dir buff.parm block 
lv2 ;check, alloc vectors 
000h ; translate table 
0000h ;scratch area 
,dpb3 ;dir buff,parm block 
lv3 ;check, alloc vectors 
,6, 1024, 243, 64, 64, off set 

disk parm block 

sec per track 

block shift 

block mask 

extnt mask 

disk size-1 

directory max 

alloc0 

allocl 

check size 

offset 

translate table 
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4a8c+09 
4a8d+0f 
4a8e+15 
4a8f+02 
4a90+08 
4a91+0e 
4a92+14 
4a93+la 
4a94+06 
4a95+0c 
4a96+12 
4a97+18 
4a98+04 
4a99+0a 
4a9a+10 
4a9b+16 

4a73+= 
001f+= 
0010+= 
4a82+= 

4a73+= 
001f+= 
0010+= 
4a82+= 

4a73+= 
001f+= 
0010+= 
4a82+= 



00fd 
00fc 
00f3 
007e 



£800 
ff0f 
f803 
f806 
f809 
f80c 
f80f 
f812 





db 




9 




db 




15 




db 




21 




db 




2 




db 




8 




db 




14 




db 




20 




db 




26 




db 




6 




db 




12 




db 




18 




db 




24 




db 




4 




db 




10 




db 




16 




db 
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diskde 


f 


1,0 


dpbl 


equ 




dpb0 


alsl 


equ 




als0 


cssl 


equ 




CSS0 


xltl 


equ 




xlt0 




diskde 


f 


2,0 


dpb2 


equ 




dpb0 


als2 


equ 




als0 


css2 


equ 




CSS0 


xlt2 


equ 




Xlt0 




diskde 


'f 


3,0 


dpb3 


equ 




dpb0 


als3 


equ 




als0 


css3 


equ 




CSS0 


xlt3 


equ 




xlt0 


• 


endef 


occurs 



revrt 
intc 
icon 
inte 



mon80 
rmon80 
ci 
r i 

CO 

po 
lo 
csts 



;equivalent parameters 
;same allocation vector size 
;same checksum vector size 
;same translate table 

;equivalent parameters 
;same allocation vector size 
;same checksum vector size 
;same translate table 

;equivalent parameters 
;same allocation vector size 
;same checksum vector size 
;same translate table 
at end of assembly 



end of controller - independent code, the remaini 
are tailored to the particular operating environm 
be altered for any system which differs from the 

the following code assumes the mds monitor exists 
and uses the i/o subroutines within the monitor 

we also assume the mds system has four disk drive 

equ 0fdh ; interrupt revert port 

equ 0fch ; interrupt mask port 

equ 0f3h ; interrupt control port 

equ 0111$1110b;enable rst (warm boot) ,rst 7 



mds monitor equates 



equ 
equ 
equ 
equ 
equ 
equ 
equ 
equ 



0f800h 
0ff0fh 
0f803h 
0f806h 
0f809h 
0f80ch 
0f80fh 
0f812h 



mds monitor 

restart mon80 (boot error) 

console character to reg-a 

reader in to reg-a 

console char from c to console o 

punch char from c to punch devic 

list from c to list device 

console status 00/ff to register 
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disk ports and commands 



0078 


= 


base 


equ 


0078 


= 


dstat 


equ 


0079 


= 


rtype 


equ 


007b 


s 


rbyte 

• 


equ 


0079 


= 


ilow 


equ 


007a 


= 


ihigh 

• 


equ 


0004 


= 


1 

readf 


equ 


0006 


= 


writf 


equ 


0003 


= 


recal 


equ 


4 


= 


iordy 


equ 


000d 


= 


cr 


equ 


000a 


s 


If 

• 


equ 






signon: 


; si 


4a9c 


0d0a0a 




db 


4a9f 


3230 




db 


4aal 


6b2043f 


db 


4aad 


322e30 




db 


4ab0 


0d0a00 




db 



boot; 



78h 
base 
base+1 
base+3 

base+1 
base+2 

4h 

6h 

3h 

4h 

0dh 

0ah 



base of disk command io ports 
disk status (input) 
result type (input) 
result byte (input) 

iopb low address (output) 
iopb high address (output) 

read function 
write function 
recalibrate drive 
i/o finished mask 
carriage return 
line feed 



4ab3 


310001 


Ixi 


4ab6 


219c4a 


Ixi 


4ab9 


cdd34b 


call 


4abc 


af 


xra 


4abd 


320400 


sta 


4ac0 


c30f4b 


jmp 



; signon message: xxk cp/m vers y.y 
cr,lf,lf 

'20' ; sample memory size 
' k cp/m vers ' 

vers/10+'0' , • . ' ,vers mod 10+' 0' 
cr,lf,0 

;print signon message and go to ccp 
(note: mds boot initialized iobyte at 0003h) 
sp,buff+80h 
h,signon 

prmsg ;print message 
a ; clear accumulator 
cdisk ;set initially to disk a 
gocpm ;go to cp/m 



4ac3 318000 



wboot:; loader on track 0, sector 1, which will be skippe 
read cp/m ,f rom disk - assuming there is a 128 byt 
start. 

Ixi sp,buff ;using dma - thus 80 thru ff ok f 



4ac6 


0e0a 


mvi 


c,retr^ 


4ac8 


c5 


push 


b 




wboot0: 


;enter 


here on 


4ac9 


010034 


Ixi 


b , cpmb 


4acc 


cdbb4b 


call 


setdma 


4acf 


0e00 


mvi 


c,0 


4adl 


cd7d4b 


call 


seldsk 


4ad4 


0e00 


mvi 


c,0 


4ad6 


cda74b 


call 


settrk 


4ad9 


0e02 


mvi 


C.2 


4adb 


cdac4b 


call 


setsec 



;set dma address to start of disk 
;boot from drive 



; start with track 
;start reading sector 2 



4ade cl 
4adf 062c 



read sectors, count nsects to zero 
pop b ;10-error count 
mvi b, nsects 
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rdsec: 



4ael 


c5 


4ae2 


cdcl4b 


4ae5 


c2494b 


4ae8 


2a6c4c 


4aeb 


118000 


4aee 


19 


4aef 


44 


4af0 


4d 


4afl 


cdbb4b 


4af4 


3a6b4c 


4af7 


fela 


4af9 


da054b 


4afc 


3a6a4c 


4aff 


3c 


4b00 


4f 


4b01 


cda74b 


4b04 


af 


4b05 


3c 


4b06 


4f 


4b07 


cdac4b 


4b0a 


cl 


4b0b 


05 


4b0c 


c2el4a 



rdl: 



; read 


next sector 




push 


b 


;save sector count 




call 


read 






jnz 


booterr 


;retry if errors occur 




Ihld 


iod 


; increment dma address 




Ixi 


d,128 


; sector size 




dad 


d 


; incremented dma address in 


mov 


b,h 






mov 


c,l 


; ready for call to set 


dma 


call 


setdma 






Ida 


ios 


;sector number just read 


cpi 


26 


;read last sector? 




jc 


rdl 






must 


be sector 


26, zero and go to next 


track 


Ida 


lot 


;get track to register 


a 


inr 


a 






mov 


c,a 


;ready for call 




call 


settrk 






xra 


a 


;clear sector number 




inr 


a 


;to next sector 




mov 


c,a 


; ready for call 




call 


setsec 






pop 


b 


; recall sector count 




dcr 


b 


;done? 




jnz 


rdsec 







4b0f 


f3 


4bl0 


3el2 


4bl2 


d3fd 


4bl4 


af 


4bl5 


d3fc 


4bl7 


3e7e 


4bl9 


d3fc 


4blb 


af 


4blc 


d3f3 


4ble 


018000 


4b21 


cdbb4b 


4b24 


3ec3 


4b26 


320000 


4b29 


21034a 


4b2c 


220100 


4b2f 


320500 


4b32 


21063c 


4b35 


220600 


4b38 


323800 


4b3b 


2100f8 


4b3e 


223900 



; done with the load, reset default buffer address 
gocpm: ; (enter here from cold start boot) 
; enable rst0 and rst7 
di 

; initialize command 



mvi 
out 
xra 
out 
mvi 
out 
xra 
out 



a,12h 
revr t 
a 

into 
a, inte 
into 
a 
icon 



;cleared 

;rst0 and rst7 bits on 



; interrupt control 



set default buffer address to 80h 
Ixi b,buff 
call setdma 

reset monitor entry points 



;jmp wboot at location 00 



mvi 


a,3mp 


sta 





Ixi 


h,wboote 


shld 


1 


sta 


5 


Ixi 


h,bdos 


shld 


6 


sta 


7*8 


Ixi 


h,mon80 


shld 


7*8+1 



;jmp bdos at location 5 

;jrop to mon80 (may have been chan 



leave iobyte set 



43 



4b41 
4b44 
4b45 
4b46 



4b49 
4b4a 
4b4b 

4b4e 
4b4f 



3a0400 
4f 
fb 
C30034 



cl 
0d 
ca524b 

c5 
c3c94a 



booterr 



previoirslr^ selected disk was b, send parameter to 

ida cdisk ;last logged disk number 

mov c,a ;send to ccp to log it in 

ei 

jmp cpmb 

error condition occurred, print message and retry 



pop b 

dcr c 

jz booter0 

try again 

push b 

jmp wboot0 



; recall counts 



booter0 



4b52 
4b55 
4b58 



215b4b 
cdd34b 
c30fff 



otherwise too many retries 

Ixi h,bootmsg 

call prmsg 

jmp rmon80 ;mds hardware monitor 



4b5b 3f626f4 



bootmsg 



db 



'?boot' ,0 



4b61 c312f8 



const: ;console status to reg-a 
; (exactly the same as mds call) 
jmp csts 



conin: ;console character to reg-a 

4b64 cd03f8 call ci 

4b67 e67f ani 7fh ;remove parity bit 

4b69 c9 ret 



4b6a c309f8 



4b6d c30ff8 



conout: 



list: 



listst: 



4b70 
4b71 



af 
c9 



4b72 c30cf8 



4b75 c306f8 



punch: 



reader: 



; console character from c to console out 
jmp CO 

;list device out 

(exactly the same as mds call) 

jmp lo 



;return list status 

xra a 

ret ;always not ready 

;punch device out 

(exactly the same as mds call) 

jmp po 

; reader character in to reg~a 
(exactly the same as mds call) 
jmp ri 



home: ;move to home position 
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4b78 0600 
4b7a c3a74b 



4b7d 210000 

4b80 79 

4b81 fe04 

4b83 d0 



; treat as track 00 seek 

mvi c,0 

jmp settrk 

seldsk: ;select disk given by register c 

Ixi h,0000h ;return 0000 if error 

mov a,c 

cpi ndisks ;too large? 

rnc ;leave hi = 0000 



4b84 
4b86 
4b89 
4b8a 
4b8c 
4b8d 
4b90 



4b92 
4b93 
4b96 
4b97 
4b99 
4b9a 

im 

4b9e 
4b9f 
4ba0 
4bal 
4ba2 
4ba5 
4ba6 



e602 

32664c 

79 

e601 

b7 

ca924b 

3e30 

47 

21684c 

7e 

e6cf 

b0 

77 

§§00 

29 

29 

29 

29 

11334a 

19 

c9 



am 
sta 
mov 
ani 
ora 

jz 
mvi 

setdr ive: 

mov 

Ixi 

mov 

ani 

ora 

mov 

mov 
mvi 

dad 

dad 

dad 

dad 

Ixi 

dad 

ret 



10b 

dbank 

a,c 

lb 

a 

setdr ive 

a, 00110000b 



00 00 for drive 0,1 and 10 10 fo 

to select drive bank 

00, 01, 10, 11 

mds has 0,1 at 78, 2,3 at 88 

result 00? 



; selects drive 1 in bank 



;save the function 
;io function 



b,a 

h,iof 

a,m 

11001111b ;mask out disk number 

b ;mask in new disk number 

m,a ;save it in iopb 

njS ;hl=disk number 

h ?*2 

h ;*4 

h ;*8 

h ;*16 

d,dpbase 

d ;hl=disk header table address 



4ba7 216a4c 
4baa 71 
4bab c9 



settrk: ;set track address given by 
Ixi h,iot 
mov m,c 
ret 



4bac 216b4c 
4baf 71 
4bb0 c9 



4bbl 0600 

4bb3 eb 

4bb4 09 

4bb5 7e 

4bb6 326b4c 



setsec: ;set sector number given by c 



Ixi 
mov 
ret 



sectran: 



4bba c 



mvi 

xchg 

dad 

mov 

sta 

mov 
ret 



h,ios 
m,c 

; translate sector be using table at de 



b,0 

b 

a,m 
ios 
Ira 



;double precision sector number i 
;translate table address to hi 
; translate (sector) address 
; translated sector number to a 

; return sector number in 1 



setdma: ;set dma address given by regs b,c 
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4bbb 69 
4bbc 6 
4bbd 226c4c 
4bc0 c9 



mov 
mov 
shld 
ret 



h,b 
iod 



4bcl 0604 

4bc3 cde04b 

4bc6 cdf04b 

4bc9 c9 



read: ;read next disk record (assuming disk/trk/sec/dma 
mvi c,readf ;set to read function 
call setfunc 

call waitio ;perform read function 
ret ;maY have error set in reg-a 



write 



4bca 0e06 
4bcc cde04b 
4bcf cdf04b 
4bd2 c9 



4bd3 7e 
4bd4 b7 
4bd5 c8 

4bd6 e5 
4bd7 4f 
4bd8 cd6a4b 
4bdb el 
4bdc 23 
4bdd c3d34b 



4be0 21684c 

4be3 7e 

4be4 e6f8 

4be6 bl 

4be7 77 



4be8 e620 
4bea 216b4c 
4bed b6 
4bee 77 
4bef c9 



prmsg 



;disk write function 

mvi c^writf 

call setfunc ;set to write function 

call waitio 

ret ;niaY have error set 



utility subroutines 

•print message at h^l to 

mov a,m 

ora a ;zero? 

rz 

more to print 

push h 

mov c,a 

call conout 

pop h 

inx h 

jmp prmsg 



setfunc 



set function 
Ixi h,iof 
mov a,m 
ani mil 
ora c 
mov m,a 
the mds-800 c 
mask the bit 
ani 00100 
Ixi h,ios 
ora m 
mov m,a 
ret 



for next i/o (command in reg-c) 
;io function address 
;get it to accumulator for maskin 
000b ; remove previous command 
;set to new command 
; replaced in iopb 
ontroller req's disk bank bit in sec 
from the current i/o function 
000b ;mask the disk select bit 
;address the sector selec 
;select proper disk bank 
;set disk select bit on/o 



4bf0 0e0a 



4bf2 cd3f4c 
4bf5 cd4c4c 

4bf8 3a664c 



waitio: 
rewait: 



mvi 



c, retry ;max retries before perm error 



start the i/o function and wait for completion 

call intype ;in rtype 

call inbyte ;clears the controller 



Ida 



dbank 



;set bank flags 
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4bfb 
4bfc 
4bfe 
4c00 
4c03 
4c05 
4c06 
4c08 



4c0b 
4c0d 
4c0e 

4cl0 
4cl3 
4cl5 



b7 

3e67 

064c 

c20b4c 

d379 

78 

d37a 

c3104c 



d389 

78 

d38a 



cd594c wait0 

e604 

cal04c 



4cl8 cd3f4c 



4clb 
4cld 



4c20 
4c21 



4c24 
4c27 
4c28 
4c2b 
4c2c 
4c2e 



4c32 
4c35 



fe02 
ca324c 



b7 
c2384c 



cd4c4c 

17 

da324c 

If 

e6f e 

c2384c 



4c31 c9 



ora a ;zero if drive 0,1 and nz 

mvi a,iopb and 0ffh ;low address for iopb 

mvi b,iopb shr 8 ;high address for iopb 

jnz iodrl ;drive bank 1? 

out ilow ;low address to controlle 

mov a,b 

out ihigh ;high address 

jmp wait0 



iodrl: ; drive bank 1 



cd4c4c 
c3384c 



wready 



wer ror 



out 
mov 
out 

call 

ani 

jz 



ilow+10h 

a,b 

ihigh+10h 

instat 

iordy 

wait0 



;to wait for complete 
;88 for drive bank 10 



;wait for completion 
; ready? 



check io completion ok 

call intype ;must be io complete (00) 

00 unlinked i/o complete, 01 linked i/o comple 

10 disk status changed 11 (not used) 

cpi 10b ;ready status change? 

jz wready 

must be 00 in the accumulator 

ora a 

jnz werror ; some other condition, re 

check i/o error bits 

call inbyte 

ral 

jc wready 

rar 

ani 11111110b 

jnz werror 



;unit not ready 
;any other errors? 



read or write is ok, accumulator contains zero 
ret 

;not ready, treat as error for now 

call inbyte ;clear result byte 

jmp trycount 

;return hardware malfunction (crc, track, seek, e 
the mds controller has returned a bit in each pos 

of the accumulator, corresponding to the conditio 

^ - - . _ ... 

1 
2 
3 
4 
5 
6 
7 



deleted data (accepted as ok above) 
crc error 
seek error 

address error (hardware malfunction) 
data over/under flow (hardware malf unct 
write protect (treated as not ready) 
write error (hardware malfunction) 
not ready 
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4c38 


0d 


4c39 


c2f24b 


4c3c 


3e01 


4c3e 


c9 


4c3f 


3a664c 


4c42 


b7 


4c43 


c2494c 


4c46 


db79 


4c48 


c9 


4c49 


db89 


4c4b 


c9 



(accumulator bits are numbered 76543210) 

it may be useful to filter out the various condit 
but we will get a permanent error message if it i 
recoverable. in any case, the not ready conditio 
treated as a separate condition for later improve 

trycount: 

; register c contains retry count, decrement 'til z 
dcr c 
jnz rewait ;for another try 

; cannot recover from error 

mvi a,l jerror code 

ret / 

/ 

; i,ntype, inbyte, instat read drive bank 00 or 10 

intype: Ida dbank 

or a a 

jnz intypl ;skip to bank 10 

in i^type 
ret 
intypl: in rtype+10h ;78 for 0,1 88 for 2,3 
ret 



4c4c 3a664c inbyte: Ida dbank 

4c4f b7 ora a 

4c50 c2564c jnz inbytl 

4c53 db7b in rbyte 

4c55 c9 ret 

4c56 dbSb inbytl: in rbyte+10h 

4c58 c9 ret 



4c59 3a664c instat: Ida dbank 

4c5c b7 ora a 

4c5d c2634c jnz instal 

4c60 db78 in dstat 

4c62 c9 ret 

4c63 db88 instal: in dstat+10h 

4c65 c9 ret 









data 


areas (must be in ram) 


4c66 


00 c 


3bank: 


db 





;disk bank 00 if drive 0,1 
10 if drive 2,3 






Lopb: 


;io 


parameter 


block 


4c67 


80 




db 


80h 


;normal i/o operation 


4c68 


04 


Lof : 


db 


readf 


;io function, initial read 


4c69 


01 


Lon: 


db 


1 


; number of sectors to read 


4c6a 


02 : 


Lot: 


db 


offset 


; track number 


4c6b 


01 ; 


LOS: 


db 


1 


; sector number 


4c6c 


8000 


Lod: 


dw 


buff 


;io address 



define ram areas for bdos operation 



4 8 







endef 




4c6e+= 


begdat 


equ 


$ 


4c6e+ 


d i r bu f : 


ds 


128 


4cee+ 


alv0: 


ds 


31 


4d0d+ 


CSV0 : 


ds 


16 


4dld+ 


alvl: 


ds 


31 


4d3c+ 


csvl: 


. ds 


16 


4d4c+ 


alv2: 


ds 


31 


4d6b+ 


csv2: 


ds 


16 


4d7b+ 


alv3: 


ds 


31 


4d9a+ 


csvS: 


ds 


16 


4daa+= 


enddat 


equ 


$ 


013c+= 


datsiz 


equ 


$-begdat 


4daa 




end 





;directorY access buffer 
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APPENDIX C: A SKELETAL GBIOS 



0014 = 



msize 



0000 
3400 
3c06 
4a00 
0004 
0003 

4a00 
002c 



4a00 
4a03 
4a06 
4a09 
4a0c 
4a0f 
4al2 
4al5 
4al8 
4alb 
4ale 
4a21 
4a24 
4a27 
4a2a 
4a2d 
4a30 



c39c4a 
c3a64a 
c3114b 
c3244b 
c3374b 
c3494b 
c34d4b 
c34f4b 
c3544b 
c35a4b 
c37d4b 
c3924b 
c3ad4b 
c3c34b 
c3d64b 
c34b4b 
c3a74b 



bias 

ccp 

bdos 

bios 

cdisk 

iobyte 



nsects 



wboote 



4a33 7 34a0 dpbase: 
4a37 000000 
4a3b f04c8d 
4a3f ec4d70 

4a43 734a00 
4a47 000000 
4a4b f04c8d 
4a4f fc4d8f 

• 

4a53 734a00 
4a57 000000 
4a5b f04c8d 
4a5f 0c4eae 



skeletal cbios for first level of cp/m 2,0 altera 

equ 20 ;cp/m version memory size in kilo 

"bias" is address offset from 3400h for memory sy 
than 16k (referred to as "b" throughout the text) 



equ 
equ 
equ 
equ 
equ 
equ 

org 
equ 

jump 

jnip 

jmp 

jmp 

jmp 

jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 
jmp 



(msize-20) *1024 
3400h+bias ;base 

ccp+806h ;base 

ccp+1600h ;base 

0004h ;current disk 



of ccp 
of bdos 
of bios 
number 0=a, . . 



rl5=p 



0003h 



; Intel i/o byte 



bios ;origin of this program 
($-ccp)/128 rwarm start sector count 



vector for 
boot 
wboot 
const 
conin 
conout 
list 
punch 
reader 
home 
seldsk 
settrk 
setsec 
setdma 
read 
write 
listst 
sectran 



individual subroutines 
cold start 
warm start 
console status 
console character in 
console character out 
list character out 
punch character out 
reader character out 
move head to home positi 
select disk 
set track number 
set sector number 
set dma address 
read disk 
write disk 
return list status 
sector translate 



fixed data tables for four-drive standard 

ibm-compatible 8" disks 

disk parameter header for disk 00 

dw trans, 0000h 

dw 0000h,0000h 

dw dirbf,dpblk 

dw chk00,all00 

disk parameter header for disk 01 

dw trans, 0000h 

dw 0000h,0000h 

dw dirbf,dpblk 

dw chk01,all01 

disk parameter header for disk 02 

dw trans, 0000h 

dw 0000h,0000h 

dw dirbf,dpblk 

dw chk02,all02 



50 



4a63 


734a00 


4a67 


000000 


4a6b 


f04c8d 


4a6f 


lc4ecd 


ii]^ miu 


4a7b 


170309 


4a7f 


150208 


4a83 


141a06 


4a87 


121804 


4a8b 


1016 


4a8d 


la00 


4a8f 


3 


4a90 


07 


4a91 


00 


4a92 


f200 


4a94 


3f00 


4a96 


C0 


4a97 


00 


4a98 


1000 


4a9a 


0200 



4a9c 
4a9d 
4aa0 
4aa3 

4aa6 
4aa9 
4aab 
4aae 



af 

320300 
320400 
c3ef 4a 

318000 

0600 

cd5a4b 
cd544b 



trans; 



boot: 



wboot: 



4abl 062c 
4ab3 0e00 
4ab5 1602 



4ab7 210034 

4aba c5 
4abb d5 
4abc e5 
4abd 4a 
4abe cd924b 
4acl cl 



loadl 



disk parameter header for disk 03 
dw trans, 0000h 
dw 0000h,0000h 
dw dirbf,dpblk 
dw chk03,all03 



sector translate vector 



db 
db 
db 
db 
db 



7'l?tl? 



23,3,9,15 

21,2,8,14 

20,26,6,12 

18,24,4,10 

16,22 



rsectors 1,2,3,4 

^sectors 5;b,7;8 

;sectors 9,10,11,12 

;sectors 13,14,15,16 

;sectors 17,18,19,20 

;sectors 21,22,23,24 

;sectors 25,26 



dpblk: ;disk parameter block, common to all disks 



dw 
db 
db 
db 
dw 
dw 
db 
db 
dw 
dw 



26 

3 

7 



242 

63 

192 



16 

2 



sectors per track 
block shift factor 
block mask 
null mask 
disk size-1 
directory max 
alloc 
alloc 1 
check size 
track offset 



end of fixed tables 



individual subroutines to perform each function 

;simplest case is to just perform parameter initi 

xra a ?zero in the accum 

sta iobyte ;clear the iobyte 

sta cdisk ;select disk zero 

jmp gocpm ; initialize and go to cp/ 

; simplest case is to read the disk until all sect 

Ixi sp,80.h ;use space below buffer f 

mvi c,0 ;select disk 

call seldsk 

call home ;go to track 00 



mvi b,nsects ;b counts # of 
mvi c,0 ;c has the cur 

mvi d,2 ;d has the nex 

note that we begin by reading track 0, 
contains the cold start loader, which 
Ixi h,ccp ;base of cp/m 

;load one more sector 

push b ;save sector count, cu 
push d ;save next sector to r 
push h ;save dma address 
mov c,d ;get sector address to 
call setsec ;set sector address fr 
pop b ; recall dma address to 



sectors to 
rent track 
t sector to 

sector 2 s 
is skipped 
(initial lo 

rrent track 
ead 

register c 
om register 
b,c 
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4ac2 c5 
4ac3 cdad4b 



4ac6 cdc34b 
4ac9 fe00 
4acb c2a64a 



4ace el 

4acf 118000 

4ad2 19 

4ad3 dl 

4ad4 cl 

4ad5 05 

4ad6 caef4a 



4ad9 14 
4ada 7a 
4adb felb 
4add daba4a 



4ae0 1601 
4ae2 0c 



4ae3 c5 
4ae4 d5 
4ae5 e5 
4ae6 cd7d4b 
4ae9 el 
4aea dl 
4aeb cl 
4aec c3ba4a 



push b ; replace on stack for later recal 

call setdma ;set dma address from b,c 

drive set to 0, track set, sector set, dma addres 

call read 

cpi 00h ;any errors? 

jnz wboot ; retry the entire boot if an erro 

no error, move to next sector 



pop 
Ixi 
dad 
pop 
pop 
dcr 
jz 



h 

d,128 

d 

d 

b 

b 

gocpm 



recall dma address 

dma=dma+128 

new dma address is in h,l 

recall sector address 

recall number of sectors remaini 

sectors=sectors-l 

transfer to cp/m if all have bee 



gocpm 



4aef 


3ec3 


mvi 


a,0c3h 


4afl 


320000 


sta 





4af4 


21034a 


Ixi 


h,wboo 


4af7 


220100 


shld 


1 


4afa 


320500 


sta 


5 


4a fd 


21063c 


Ixi 


h,bdos 


4b00 


220600 


shld 


6 


4b03 


018000 


Ixi 


b,80h 


4b06 


cdad4b 


call 


setdma 


4b09 


fb 


ei 




4b0a 


3a0400 


Ida 


cdisk 


4b0d 


4f 


mov 


c,a 


4b0e 


C30034 


jmp 


ccp 



more sectors remain to load, check for track chan 

inr d 

mov a,d ;sector=27?, if so, change tracks 

cpi 27 

jc loadl ;carry generated if sector<27 

end of current track, go to next track 

mvi d,l ;begin with first sector of next 

inr c ; track=track+l 

save register state, and change tracks 

push b 

push d 

push h 

call settrk ;track address set from register 

pop h 

pop d 

pop b 

jmp loadl ;for another sector 

end of load operation, set parameters and go to c 

a,0c3h ;c3 is a jmp instruction 
;for jmp to wboot 

;wboot entry point 
;set address field for jmp at 

;for jmp to bdos 
h,bdos ;bdos entry point 

;address field of jump at 5 to bd 

;default dma address is 80h 



;enable the interrupt system 

;get current disk number 

;send to the ccp 

;go to cp/m for further processin 
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4bll 

4b21 3e00 
4b23 c9 



const: 



simple i/o handlers (must be filled in by user) 
in each case, the entry point is provided, with s 
to insert your own code 

;console status, return 0ffh if character ready, 
ds 10h ;space for status subroutine 
mvi a,00h 
ret 



conin: ;console character into register a 

4b24 ds 10h ; space for input routine 

4b34 e67f ani 7fh ;strip parity bit 

4b36 c9 ret 

conout: ;console character output from register c 

4b37 79 mov a,c ;get to accumulator 

4b38 ds 10h ;space for output routine 

4b48 c9 ret 

list: ;list character from register c 

4b49 79 mov a,c ;character to register a 

4b4a c9 ret ;null subroutine 

listst: ;return list status (0 if not ready, 1 if ready) 

4b4b af xra a ;0 is always ok to return 

4b4c c9 ret 

punch: ;punch character from register c 

4b4d 79 mov a,c ;character to register a 

4b4e c9 ret ;null subroutine 



4b4f 3ela 
4b51 e67f 
4b53 c9 



4b54 0600 
4b56 cd7d4b 
4b59 c9 



reader: ;read character into register a from reader devic 

mvi a,lah ;enter end of file for now (repla 

ani 7fh ;remember to strip parity bit 
ret 



i/o drivers for the disk follow 

for now, we will simply store the parameters away 

in the read and write subroutines 

home: ;move to the track 00 position of current drive 
; translate this call into a settrk call with param 

mvi c,0 ;select track 

call settrk 

ret ;we will move to 00 on first read 



seldsk: ; select disk given by register c 

4b5a 210000 Ixi h,0000h ;error return code 

4b5d 79 mov a,c 

4b5e 32ef4c sta diskno 

4b61 fe04 cpi 4 ;must be between and 3 



53 



4b63 d0 



4b64 



rnc ;no carry if 4,5,... 

disk number is in the proper range 

ds 10 ; space for disk select 

compute proper disk parameter header address 



4b6e 


3aef4c 


Ida 


diskno 


4b71 


6f 


mov 


l,a ;l=disk number 0,1,2,3 


4b72 


2600 


mvi 


h,0 ;high order zero 


4b74 


29 


dad 


h ;*2 


4b75 


29 


dad 


h ;*4 


4b76 


29 


dad 


h ;*8 


4b77 


29 


dad 


h ;*16 (size of each header) 


4b 7 8 


11334a 


Ixi 


d,dpbase 


4b7b 


19 


dad 


d ;hl=.dpbase(diskno*16) 


4b7c 


c9 


ret 






settrk: 


; set 


track given by register c 


4b7d 


79 


mov 


a,c 


4b7e 


32e94c 


sta 


track 


4b81 




^ds 


10h ; space for track select 


4b91 


c9 


ret 





setsec: ;set sector given by register c 

4b92 79 mov a,c 

4b93 32eb4c sta sector 

4b96 ds 10h ;space for sector select 

4ba6 c9 ret 



sectran: 



4ba7 
4ba8 
4ba9 
4baa 
4bac 



eb 

09 

6e 

2600 

c9 



; translate the sector given by be using the 
; translate table given by de 



xchg 

dad 

mov 

mvi 

ret 



b 

1 ,m 
h,0 



hl=. trans 
hl=. trans (sector) 
1 = trans (sector) 
hl= trans (sector) 
with value in hi 



4bad 69 
4bae 60 
4baf 22ed4c 
4bb2 
4bc2 c9 



setdma: ;set dma address given by registers b and c 



mov 

mov 

shld 

ds 

ret 



l,c ;low order address 

h,b ;high order address 

dmaad ;save the address 

10h ; space for setting the dma addres 



4bc3 

4bd3 c3e64b 



4bd6 



read: ;perform read operation (usually this is similar 
; so we will allow space to set up read command, th 
; common code in write) 

ds 10h ;set up read command 

jmp waitio ; to perform the actual i/o 

write: ;perform a write operation 

ds 10h ;set up write commano 

waitio: ;enter here from read and write to perform the ac 
; operation. return a 00h in register a if the ope 
; properly, and 01h if an error occurs during the r 
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4be6 

4ce6 3e01 
4ce8 c9 



4ce9 


track: 


ds 


2 


4ceb 


sector: 


ds 


2 


4ced 


dmaad: 


ds 


2 


4cef 


diskno: 


ds 


1 




• 


scratch 


ram 


4cf0 = 


begdat 


equ 


$ 


4cf0 


dirbf : 


ds 


128 


4d70 


all00: 


ds 


31 


4d8f 


all01: 


ds 


31 


4dae 


all02: 


ds 


31 


4dcd 


all03: 


ds 


31 


4dec 


chk00: 


ds 


16 


4dfc 


chk01: 


ds 


16 


4e0c 


chk02: 


ds 


16 


4elc 


chk03: 


ds 


16 


4e2c = 


1 

enddat 


equ 


$ 


013c = 


datsiz 


equ 


$-b 


4e2c 




end 





in this case, we have saved the disk number in 'd 

the track number in 'track' (0-76 
the sector number in 'sector' (1- 
the dma address in 'dmaad' (0-655 

ds 256 ;space reserved for i/o drivers 

mvi a,l ;error condition 

ret ;replaced when f illed-in 

the remainder of the cbios is reserved uninitiali 
data area, and does not need to be a part of the 
system memory image (the space must be available, 
however, between "begdat" and "enddat"). 



;two bytes for expansion 
; two bytes for expansion 
;direct memory address 
;disk number 0-15 

: for bdos use 
beginning of data area 
scratch directory area 
allocation vector 
allocation vector 1 
allocation vector 2 

allocation vector 3 
check vector 
check vector 1 
check vector 2 
check vector 3 



;end of data area 
$-begdat;size of data area 
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APPENDIX D: A SKELETAL GETSYS/PUTSYS PROGRAM 



combined getsys and putsys programs from Sec 4 
Start the programs at the base of the TPA 



0100 
0014 



msize 



org 
equ 



0100h 
20 



; size of cp/m in Kbytes 



0000 
3400 
3c00 
4a00 



0100 318033 
0103 218033 
0106 0600 

0108 0901 

010a cd0003 
010d 118000 

0110 19 

0111 0c 

0112 79 

0113 felb 
0115 da0a01 



0118 04 

0119 78 
011a fe02 
011c da0801 



011f fb 
0120 76 



; "bias" is the amount to add to addresses for > 20k 
; (referred to as "b" throughout the text) 



bias 
ccp 
bdos 
bios 



equ (msize-20) *1024 

equ 3400h+bias 

equ ccp+0800h 

equ ccp+1600h 

getsys programs tracks and 1 to memory at 
3880h + bias 



register 
a 

b 

c 

d,e 

h,l 

sp 



usage 
(scratch register) 
track count (0...76) 
sector count (1.,.26) 
(scratch register pair) 
load address 
set to stack address 



gstart: 

rd$trk: 
rd$sec: 



Ixi sPrCcp-0080h 

Ixi h,ccp-0080h 

mvi b,0 

mvi c,l 

call read$sec 

Ixi d,128 

dad d 

inr c 

mov a,c 

cpi 27 

jc rdsec 



start of getsys 
convenient plac 
set initial loa 
start with trac 
read next track 
each track star 

get the next se 
offset by one s 

(hl=hl+128) 
next sector 
fetch sector nu 

and see if la 
<, do one more 



; arrive here at end of track, move to next track 

track = track+1 
check for last 
track = 2 ? 
<, do another 

; arrive here at end of load, halt for lack of anything b 

ei 
hit 



inr 


b 


mov 
cpi 
jc 


a,b 

2 

rd$trk 
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putsys prograitir places memory image starting at 

3880h + bias back to tracks and 1 

start this program at the next page boundary 



0200 



org 



($+0100h) and 0ff00h 







PU 


it?sys 


• 
• 




0200 


318033 






Ixi 


sp,ccp-0080h 


0203 


218033 






Ixi 


h,ccp-0080h 


0206 


0600 


wr 


$trk: 


mvi 


b,0 


0208 


0e01 


wr 


$sec: 


mvi 


c,l 


020a 


cd0004 






call 


wr ite$sec 


020d 


118000 






Ixi 


d,128 


0210 


19 






dad 


d 


0211 


0c 






inr 


c 


0212 


79 






mov 


a,c 


0213 


felb 






cpi 


27 


0215 


da0a02 






jc 


wr$sec 



convenient plac 
start of dump 
start with trac 

start with sect 

write one secto 
length of each 
<hl>=<hl> + 128 
<c> = <c> + 1 
see if 

past end of t 
no, do another 



arrive here at end of track, move to next track 



0218 


04 


inr 


b 


0219 


78 


mov 


a,b 


021a 


fe02 


cpi 


2 


021c 


da0802 


jc 


wr$trk 



track = track+1 
see if 

last track 
no, do another 



021f 
0220 



fb 
76 



done with putsys, halt for lack of anything bette 

ei 
hit 



0300 



0300 c5 

0301 e5 



0302 

0342 el 

0343 cl 



; user supplied subroutines for sector read and write 

; move to next page boundary 

org {$+0100h) and 0ff00h 

read$sec 

read the next sector 
track in <b> , 
sector in <c> 
dmaaddr in <hl> 



push 
push 



b 
h 



; user defined read operation goes here 
ds 64 



pop 
pop 



h 
b 
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0344 c9 ret 

0400 org ($+0100h) and 0ff00h ; another page bo 

wr ite$sec: 

; same parameters as read$sec 

0400 c5 push b 

401 e5 push h 

; user defined write operation goes here 

0402 ds 64 

0442 el pop h 

443 g1 pop b 

0444 c9 ret 

; end of getsys/putsys program 

0445 end 
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APPENDIX E: A SKELETAL COLD START LOADER 



this is a sample cold start loader whichr when modified 
resides on track 00, sector 01 (the first sector on the 
diskette) . we assume that the controller has loaded 
this sector into memory upon system start-up (this pro- 
gram can be keyed-in, or can exist in read/only memory 
beyond the address space of the cp/m version you are 
running) . the cold start loader brings the cp/m system 
into memory at "loadp" (3400h + "bias"). in a 20k 
memory system, the value of "bias" is 0000h, with large 
values for increased memory sizes (see section 2) . afte 
loading the cp/m system, the clod start loader branches 
to the "boot" entry point of the bios, which begins at 
"bios" + "bias." the cold start loader is not used un- 
til the system is powered up again, as long as the bios 
is not overwritten. the origin is assumed at 0000h, an 
must be changed if the controller brings the cold start 
loader into another area, or if a read/only memory area 
is used. 



0000 



org 







base of ram in cp/m 



0014 = 

0000 = 

3400 = 

4a00 = 

0300 = 

4a00 = 

1900 = 

0032 = 



msize 


equ 


bias 


egu 


ccp 


equ 


bios 


equ 


biosl 


equ 


boot 


equ 


size 


equ 


sects 


equ 



20 

(msize-20) *1024 

3400h+bias 

ccp+1600h 

0300h 

bios 

bios+biosl-ccp 

size/128 



min mem size in kbytes 

offset from 20k system 
base of the ccp 
base of the bios 
length of the bios 

size of cp/m system 
# of sectors to load 



begin the load operation 



0000 010200 
0003 1632 
0005 210034 



cold: 



Ixi 


b,2 


mvi 


d, sects 


Ixi 


h,ccp 



b=0 , c=sector 2 
d=# sectors to load 
base transfer address 



Isect: 



load the next sector 



insert inline code at this point to 
read one 128 byte sector from the 
track given in register b, sector 
given in register c, 
into the address given by <hl> 

branch to location "cold" if a read error occurs 
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************* * * * * ******************************** 
* 

* user supplied read operation goes here... 
* 

************************************************* 



0008 c36b00 
000b 



jmp past$patch 
ds' 60h 



; remove this when patche 



006b 15 
006c ca004a 



past$patch: 

; go to next sector if load is incomplete 

dcr d ; sects=sects-l 

jz boot ; head for the bios 

more sectors to load 

we aren't using a stack , so use <sp> as scratch registe 
to hold the load address increment 



006f 


318000 


Ixi 


sp,128 


0072 


39 


dad 


sp 


0073 


0c 


inr 


c 


0074 


79 


mov 


a,c 


0075 


felb 


cpi 


27 


0077 


da0800 


jc 


Isect 



; 128 bytes per sector 

; <hl> = <hl> + 128 

; sector = sector + 1 

; last sector of track? 

; no, go read another 



; end of track, increment to next track 



007a 


0e01 


mvi 


c,l 


007c 


04 


inr 


b 


007d 


C30800 


jmp 


Isect 


0080 




end 





sector = 1 
track = track + 1 
for another group 
of boot loader 
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APPENDIX F: CP/M DISK DEFINITION LIBRARY 

CP/M 2.0 disk re-definition library 

Copyright (c) 1979 

Digital R^bearch 

Box 579 

Pacific Grove, CA 

93950 

CP/M logical disk drives are defined using the 
macros given below, where the sequence of calls 
is: 

disks a 

diskdef parameter-list-0 

diskdef parameter-list-1 

• • • 

diskdef parameter-list-n 

endef 

where n is the number of logical disk drives attached 
to the CP/M system, and parameter-list-i defines the 
characteristics of the ith dr ive (i=0 ,1 , . . . ,n-l) 

each parameter-list-i takes the form 

dn,fsc,lsc, [skf] ,bls,dks,dir ,cks,of s, [0] 
where 

dn is the disk number 0,1,..., n-1 

fsc is tae first sector number (usually or 1) 

Isc is the last sector number on a track 

skf is optional "skew factor" for sector translate 

bis is tne data block size (1024,2048 ,... ,16384) 

dks is tne disk size in bis increments (word) 

dir is tnt; number of directory elements (word) 

cks is the number of dir elements to checksum 

ofs is the number of tracks to skip (word) 

[0] is an optional which forces i6K/directory en 

for convenience, the form 

dn,dm 
defines disk dn as having the same characteristics as 
a previously defined disk dm. 

a standard four drive CP/M system is defined by 

disks 4 

diskdef 0,1,26,6,1024,243,64,64,2 
dsk set 

rept 3 
dsk set dsk+1 

diskdef %dsk,0 

endm 

endef 

the value of "begdat" at the end of assembly defines t 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 

6 7 
68 
69 

7 
71 
12 
73 
74 
7 5 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 

100 

101: 

102 

103 

104 

105 

106 

107 

108 



dskhdr 
dpe&dn 



disks 

• • 

ndisks 
dpbase 

dsknxt 



dsknxt 



dpbhdr 
dpb&dn 



ddb 



ddw 



gcd 



gcdm 
gcdn 
gcdr 

gcdx 
gcdr 



beginning of the uninitialize ram area above the bios, 
while the value of "enddat" defines the next location 
following the end of the data area. the size of this 
area is given by the value of "datsiz" at the end of t 
assembly, note that the allocation vector will be qui 
large if a large disk size is defined with a small bio 
size. 

macro dn 

define a single disk header list 



dw 
dw 
dw 
dw 
endm 



xlt&dn,0000h 
0000h,0000h 
dirbuf, dpb&dn 
csv&dn,alv&dn 



; translate table 
;scratch area 
;dir buff^parm block 
;check, alloc vectors 



macro nd 

define nd disks 

set nd ;;for later reference 

equ $ ;base of disk parameter blocks 

generate the nd elements 

set 

rept nd 

dskhdr %dsknxt 

set dsknxc+1 

endm 

endm 



macro 

equ 

endm 



dn 



;disk parm block 



macro data, comment 
define a db statement 
db data 
endm 

macro data, comment 
define a dw statement 
dw data 
endm 



comment 



comment 



macro m,n 

greatest common divisor of m,n 
produces value gcdn as result 
(used in sector translate table generation) 



set 

set 

set 

rept 

set 

set 

if 

exitm 

endif 



m 

n 

' 

65535 

gcdm/gcdn 

gcdm - gcdx*gcdn 

gcdr = 



;variable for m 
;variable for n 
;variable for r 



62 



109 

110 

111 

112 

113 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 

159 

160 

161 

162 

163 



gcdm 
gcdn 



set 
set 
endm 
endm 



gcdn 
gcdr 



diskdef macro dn, f sc,lsc ,skf ,bls ,dks;dir ,cks,bf s, kl6 
; ; generate the set statements for later tables 
if nul Isc 
current disk dn s=ime as previous fsc 

dpb&fsc ;2quivalent parameters 
als&fsc ;same allocation vector size 
css&fsc ;same checksum vector size 
xlt&fsc :3ame translate table 



dpb&dn 
ais&dn 
css&dn 
xlt&dn 



secmax 

sectors 

als&dn 

als&dn 

css&dn 

• • 

blkval 
blkshf 
blkmsk 



blkshf 
blkmsk 
blkval 



blkval 
extmsk 



extmsk 
blkval 



extmsk 



extmsk 



dirrem 



equ 

equ 

equ 

equ 

else 

set 

set 

set 

if 

set 

endif 

set 



Isc-(fsc) ;;sectors 0... secmax 
secmax+1 ; ;number of sectors 
(dks)/8 ;;size of allocation vector 
( (dks) mod c) ne 
als&dn+l 

{cks)/4 ;; number of checksum elements 



generate the block shift value 



bls/128 





16 

blkval=l 



number of sectors/block 
counts right 0's in blkval 
£ills with I's from right 
once for each bit position 



set 

set 

set 

rept 

if' 

exitm 

endif 

otherwise, high order 1 not found yet 

set blkshf+1 

set (blkmsk shl 1) 

set blkval/2 

endm 

generate the extent mask byte 



or 1 



bls/1024 ;;number of kilobytes/block 

;;fiil from right with I's 

16 

blkval=l 



set 

set 

rept 

if 

exitm 

endif 

otherwise more to shift 

set (extmsk shl 1) or 

set blkval/2 

endm 

may be 

if 

set 

endif 

may be optional 

if not nul 

set kl6 

endif 

now generate directory reservation bit vector 

set dir ;;# remaining to process 



double byte allocation 
(dks) > 256 
(extmsk shr 1) 



[0] 
kl6 



in last position 
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164: dirbks set bls/32 ;; number of entries per block 

165: dirblk set ;; fill with 1 's on each loop 

166: rept 16 

167: if dirrem=0 

168: exitm 

169: endif 

170: ;; not complete, iterate once again 

171: ;; shift right and add 1 high order bit 

172: dirblk set (dirblk shr i) or 8000h 

173: if dirrem > dirbks 

174: dirrem set dirrem-dirbks 

175: else 

176: dirrem set 

177: endif 

178: endm 

179: dpbhdr dn ; ;g3nerate equ $ 

180: ddw %sectors,<;sec per track> 

181: ddb %blkshf , < ;blcck ' shif t> 

182: ddb %blkmsk ,< ;blcck mask> 

183: ddb %extmsk ,< ;extnt mask> 

184: ddw % (dks)~l ,< ;aisk size-l> 

185: ddw % (dir) -1 , < ;airectorY max> 

186: ddb %dirblk shr 8,<;alloc0> 

187: ddb %dirblk ana 0f fh,< ;allocl> 

188: ddw % (cks) /4 ,< ;check size> 

189: ddw %of s, < ;of f set> 

190: ;; generate the translate table, if requested 

191: if nul skf 

192: xlt&dn equ ;no xlate taDle 

19 3: else 

194: if skf = 

195: xlt&dn equ ;no xlate table 

196: else 

197: j; generate the translate taole 

198: nxtsec set ;;iiext sector to fill 

199: nxtbas set ;;mcves by one on overflow 

200: gcd %sectors,skf 

201: ;; gcdn = gcd(sectors, skew) 

202: neltst set sectors/gcdn 

203: ;; neltst is number of elements to generate 

204: ;; before we overlap orevious elements 

205: nelts set neltst ;;counter 

206: xlt&dn equ $ ;translate table 

207: rept sectors ; ;once for each sector 

208: if" sectors < 256 

209: ddb %nxtsec+ (f sc) 

210: else 

211: ddw %nxtsec+(fsc) 

212: endif 

213: nxtsec set nxtsec+(skf) 

214: if nxtsec >= sectors 

215: nxtsec set nxtsec-sectors 

216: endif 

217: nelts set nelts-1 

218: if nelts =0 
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219 


: nxtbas 


set 


nxtbas+i 


220 


: nxtsec 


set 


nxtbas 


221: 


: nelts 


set 


neltst 


222 




endif 




223 




endm 




224 




endif 


;;end of nul fac test 


225 




endif 


;;end of nul bis test 


226 




endm 




227: 


• 






228: 


defds 


macro 


lab, space 


229: 


lab: 


ds 


space 


230: 




endm 




231: 


• 

1 






232: 


Ids 


macro 


lb,dn,val 


233: 




defds 


lb&dn,%val&dn 


234: 




endm 




235: 


• 






236: 


endef 


macro 




237: 


• • 


generate the necessary ram data area 


238: 


begdat 


equ 


$ 


239: 


d i r bu f : 


ds 


128 ;directorY access bu 


240: 


dsknxt 


set 





241: 




rept 


ndisks ; ;once for eacn disk 


242: 




Ids 


alv,%dsknxt ,als 


243: 




Ids 


csv,%dsknxt,css 


244: 


dsknxt 


set 


dsknxt+1 


245: 




endm 




246: 


enddat 


equ 


$ 


247: 


datsiz 


equ 


$-begdat 


248: 


• • 
1 1 


db at 


this point forces hex record 


249: 




endm 
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APPENDIX G: BLOCKING AND DEBLOCKING ALGORITHMS 



1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 
16 
17 
18 
19 
20 
21 
22 
23 
24 
25 
26 
27 
28 
29 
30 
31 
3 2 
33 
34 
35 
36 
37 
38 
39 
40 
41 
42 
43 
44 
45 
46 
47 
48 
49 
50 
51 
52 
53 



7 7 

ex 



************ * * ****************** * * ****** * * * ********** 

* * 

* Sector Deblocking Algorithms for CP/M 2.0 * 

* * 

* * * * * * * * ******* * * ****** * * * * ************************** 

utility macro to compute sector mask 
smask macro hblk 

compute log2(hblk), return @x as result 

(2 ** @x = hblk on return) 

set hblk 

set 

count right shifts of @y until = 1 

rept 8 

if @y = 1 

exitm 

endif 

@y is not 1, shift right one position 

set @y shr 1 

set @x + 1 

endm 

endm 

***************************************************** 

* , * 

* CP/M to host disk constants * 

* * 
************** ******* ***** *********** ******** ******** 



@y 
@x 



blksiz equ 

hstsiz equ 

hstspt equ 

hstblk equ 

cpmspt equ 

seems k equ 

smask 

secshf equ 



2048 

512 

20 

hstsiz/128 

hstblk * hstspt 

hstblk-1 

hstblk 

@x 



CP/M allocation size 
host disk sector size 
host disk sectors/trk 
CP/M sects/host buff 
CP/M sectors/track 
sector mask 
compute sector mask 
log2 (hstblk) 



************************** * * * * * * * ** * ***************** 

* * 

* BDOS constants on entry to write * 

* * 
***************************************************** 

wrall equ ;write to allocated 



wrdir 
wrual 



equ 
equ 
equ 



;write to directory 
;write to unallocated 



***************************************************** 

* * 

* The BDOS entry points given below show the * 

* code which is relevant to deblocking only, * 

* * 

***************************************************** 
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54 
55 
56 
57 
58 
59 
60 
61 
62 
63 
64 
65 
66 
67 
68 
69 
70 
71 
72 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 
91 
92 
93 
94 
95 
96 
97 
98 
99 
100 
101 
102 
103 



dpbase 

boot: 
wboot: 



seldsk; 



settrk: 



setsec 



setdma 



DISKDEF macro, or hand coded tables go here 
egu $ ;disk param block base 



;enter here on system boot to initialize 

xra a ;0 to accumulator 

sta hstact ;host buffer inactive 

sta unacnt ;clear unalloc count 
ret 



;select disk 



mov 

sta 

mov 

mvi 

rept 

dad 

endm 

Ixi 

dad 

ret 



a^c 

sekdsk 

l^a 

h,0 

4 

h 

d, dpbase 
d 



; selected disk number 
;seek disk number 
;disk number to HL 

;multiply by 16 



;base of parm block 
;hl=,dpb (curdsk) 



sectran; 



;set track given by registers BC 

mov h,b 

mov IrC 

shld sektrk ; track to seek 

ret 



;set sector given by register c 

mov a^c 

sta seksec ;sector to seek 

ret 



;set dma address given by BC 

mov h,b 

mov l,c 

shld dmaadr 

ret 



; translate sector number BC 
mov h,b 
mov l,c 
ret 
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104 

105 

106 

107 

108 

109 

110 

111: 

112 

113: 

114 

115 

116 

117 

118 

119 

120 

121 

122 

123 

124 

125 

126 

127 

128 

129 

130 

131 

132 

133 

134 

135 

136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 

147 

148 

149 

150 

151 

152 

153 

154 

155 

156 

157 

158 



***************************************************** 

* * 

* The READ entry point takes the place of * 

* the previous BIOS defintion for READ. * 

* * 

***************************************************** 

read: 

;read the selected CP/M sector 

mvi a,l 

sta readop ;read operation 

sta rsflag ;must read data 

mvi arwrual 

sta wrtype ;treat as unalloc 

jmp rwoper ;to perform the read 

***************************************************** 

* * 

* The WRITE entry point takes the place of * 

* the previous BIOS defintion for WRITE. * 

* * 

***************************************************** 

write: 

;write the selected CP/M sector 

xra a ;0 to accumulator 

sta readop ;not a read operation 

mov a,c ;write type in c 

sta wrtype 

cpi wrual ; write unallocated? 

jnz chkuna ;check for unalloc 

; write to unallocated, set parameters 

mvi a,blksiz/128 ;next unalloc recs 

sta unacnt 

Ida sekdsk ;disk to seek 

sta unadsk junadsk = sekdsk 

Ihld sektrk 

shld unatrk ;unatrk = sectrk 

Ida seksec 

sta unasec ;unasec = seksec 



chkuna: 



;check for write to unallocated sector 

Ida unacnt ;any unalloc remain? 

ora a 

jz alloc ;skip if not 



more unallocated records remain 

dcr a 

sta unacnt 

Ida sekdsk 

Ixi h, unadsk 

cmp m 

jnz alloc 

disks are the same 



; unacnt = unacnt-1 

;same disk? 

; sekdsk = unadsk? 
;skip if not 
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159 

160 

161: 

162 

163 

164 

165 

166 

167 

168 

169 

170 

171 

172: 

173 

174 

175 

176 

177 

178 

179 

180 

181 

182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

19 5 

196 

197 

198 

199 

200 

201 

202 

203 

204 

205 

206 

207 

208 

209 

210 

211 

212: 

213 



Ixi 


h, unatrk 




call 


sektrkcmp 


;sektrk = unatrk? 


jnz 


alloc 


;skip if not 



tracks are the same 
Ida seksec 
1x1 hrunasec 
cmp m 
jnz alloc 



;same sector? 

; seksec = unasec? 
;skip if not 



noovf 



match, move to next sector for future ref 

; unasec = unasec+1 
;end of track? 
;count CP/M sectors 
;skip if no overflow 



;unasec = 
;unatrk = unatrk+1 



;match found, mark as unnecessary read 

xra a ;0 to accumulator 

sta rsflag ;rsflag = 

jmp rwoper ;to perform the write 



inr 


m 


mov 
cpi 
jc 


a,m 

cpmspt 

noovf 


overfl 


ow to next track 


mvi 
Ihld 


m,0 
unatrk 


inx 
shld 


h 
unatrk 



alloc: 



xra 


a 


sta 


unacnt 


inr 


a 


sta 


rsflag 



;not an unallocated record, requires pre-read 

to accum 
unacnt = 

1 to accum 
rsflag = 1 

***************************************************** 

* * 

* Common code for READ and WRITE follows * 

* * 

***************************************************** 



rwoper: 



;enter here to perform the read/write 



xra 

sta 

Ida 

rept 

ora 

rar 

endm 

sta 



a 

erflag 

seksec 

secshf 

a 



sekhst 



active host sector? 
Ixi h,hstact 
mov a,m 
mvi m,l 



;zero to accum 

;no errors (yet) 

; compute host sector 

;carry = 
;shift right 

;host sector to seek 



;host active flag 
/always becomes 1 
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214 

215 

216 

217 

218 

219 

220 

221 

222 

223 

224 

225 

226 

227 

228 

229 

230 

231 

232: 

233 

234 

235 

236 

237 

238 

239 

240 

241 

242; 

243 

244 

245 

246 

247 

248 

249 

250 

251 

252 

253 

254 

255 

256 

257 

258 

259 

260 

261 

262 

263 

264 

265 

266 

267 

268 



ora 



a 

f ilhst 



;was it already? 
;fill host if not 



host buffer active, same as seek buffer? 

Ida sekdsk 

Ixi h,hstdsk ; same disk? 

cmp m ; sekdsk = hstdsk? 

jnz nomatch 



same disk, same track? 
Ixi h,hsttrk 
call sektrkcmp 
jnz nomatch 



;sektrk = hsttrk? 



same disk, same track, same buffer? 

;sekhst = hstsec? 
;skip if match 



Ida 
Ixi 

cmp 
jz 



sekhst 
h, hstsec 
m 
match 



nomatch: 



f ilhst: 



match 



;proper disk, but not 

Ida hstwrt 

ora a 

cnz writehst 



;may have to fill the 

Ida sekdsk 

sta hstdsk 

Ihld sektrk 

shld hsttrk 

Ida sekhst 

sta hstsec 

Ida rsflag 

ora a 

cnz readhst 

xra a 

sta hstwrt 



;copy data to or from 



correct sector 
;host written? 

;clear host buff 



host buffer 



Ida 


seksec 


ani 


secmsk 


mov 


Ira 


mvi 


h,0 


rept 


7 


dad 


h 


endm 




hi has 


relative host 


Ixi 


d,hstbuf 


dad 


d 


xchg 




Ihld 


dmaadr 


mvi 


c,128 



;need to read? 

yes, if 1 

to accum 

no pending write 



buffer 

;mask buffer number 
;least signif bits 
; ready to shift 
;double count 
;shift left 7 



buffer address 

;hl = host address 
;now in DE 
;get/put CP/M data 
; length of move 
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269 

270 

271: 

272: 

273 

274 

275 

276 

277 

278 

279 

280 

281 

282: 

283 

284 

285 

286 

287 

288 

289 

290 

291 

292 

293 

294 

295 

296 

297 

298 

299 

300 

301 

302 

303 

304 

305 

306 

307 

308 

309 

310 

311 

312 

313 

314 

315 

316 

317 

318 

319 

320 



Ida 


readop 


ora 


a 


jnz 


rwmove 



rwmove 



;which way? 
;skip if read 



write operation, mark and switch direction 

mvi a,l 

sta hstwrt ;hstwrt = 1 

xchg ;source/dest swap 



;C initially 128, DE is source, HL is dest 

Idax d ; source character 

inx d 

mov m,a ;to dest 

inx h 

dcr c ;loop 128 times 

jnz rwmove 

data has been moved to/from host buffer 
Ida wrtype ;write type 

cpi wrdir ; to directory? 

Ida erflag ;in case of errors 

rnz ;no further processing 

clear host buffer for directory write 

errors? 
skip if so 
to accum 
buffer written 



ora 


a ; 


rnz 




xra 


a ; 


sta 


hstwrt ; 


call 


wr itehst 


Ida 


e r f 1 ag 


ret 


1 



***************************************************** 

* * 

* utility subroutine for 16-bit compare * 

* * 

***************************************************** 

sektrkcmp: 

;HL = .unatrk or .hsttrk, compare with sektrk 

xchg 

Ixi h, sektrk 

Idax d ;low byte compare 

cmp m jsame? 

rnz ;return if not 
; low bytes equal, test high Is 

inx d 

inx h 

Idax d 

cmp m ;sets flags 

ret 



71 



321 

322 

323 

324 

325 

326 

327 

328 

329 

330 

331 

332 

333 

334 

335 

336 

337 

338 

339 

340 

341 

342; 

343 

344 

345 

346 

347 

348 

349 

350 

351 

352 

353 

354 

355 

356 

357 

358 

359 

360 

361 

362 

363 

364 

365 

366 

367 

368 

369 

370 



***************************************************** 

* * 

* WRITEHST performs the physical write to * 



the host disk, READHST reads the physical 
disk. 



***************************************************** 

writehst: 

jhstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. write "hstsiz" bytes 
;from hstbuf and return error flag in erf lag. 
; return erf lag non-zero if error 
ret 

7 

readhst: 

;hstdsk = host disk #, hsttrk = host track #, 
;hstsec = host sect #. read "hstsiz" bytes 
;into hstbuf and return error flag in erflag. 
ret 

***************************************************** 

* * 

* Unitialized RAM data areas * 

* * 

******************************* ******o^************** 



sekdsk: ds 
sektrk: ds 
seksec: ds 



hstdsk: 
hsttrk ; 

hstsec; 

• 

sekhst; 
hstact; 

hstwr t; 

• 

unacnt; 
unadsk: 
unatrk; 

unasec; 

• 

erflag : 

rsflag: 

readop; 

wrtype 

dmaadr 

hstbuf: 



ds 
ds 
ds 

ds 
ds 
ds 

ds 
ds 
ds 
ds 

ds 
ds 
ds 
ds 
ds 
ds 



1 
2 
1 

1 
2 
1 

1 
1 
1 

1 
1 
2 
1 

1 
1 
1 
1 
2 
hstsiz 



;seek disk number 
;seek track number 
;seek sector number 

;host disk number 
;host track number 
;host sector number 

;seek shr secshf 
;host active flag 
;host written flag 

;unalloc rec cnt 
;last unalloc disk 
;last unalloc track 
;last unalloc sector 

;error reporting 
;read sector flag 
?1 if read operation 
; write operation type 
;last dma address 
;host buffer 
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371 
372 
373 
374 
375 
376 



iticiei(iti(i(ititicieicicit'ki(ie1citici<icitici(iticit1ci(4t1tic1(iciciticic4ci(iciti<itie-k1eiti(icicic 
■k * 

* The ENDEF macro invocation goes here * 

* * 

***************************************************** 
end 
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